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SUMMARY 


The Advanced Rankine Cycle Space Nuclear Power System of current 
interest to NASA/Lewis Research Center is a three-loop configuration 
in which the primary loop transfers heat from a nuclear reactor to a 
power conversion loop where electric power is generated. Waste heat 
from the power conversion loop is transmitted by a third loop to a 
space radiator for ultimate rejection to space. The heat rejection 
loop (actually four parallel units) employs electromagnetic pumps for 
transport of the coolant fluid. The analytical study documented in 
this report examined the feasibility of using passive capillary pump- 
ing in the heat rejection loops. 

The capillary pump concept is a two-phase system which transports 
thermal energy as latent heat of vaporization. The motive force for 
circulation of the working fluid is the pressure head generated by a 
capillary structure in the heated region. The capillary pumped system, 
contrary to the conventional heat pipe, flows vapor and condensate in 
the same direction in a closed system; separation of the liquid and 
vapor occurs in the condenser where the liquid bridges the flow passage. 
Also, the conventional heat pipe has wi eking throughout the system 
whereas the capillary pumped loop can be wicked only in the heated zone. 

The study documented in this report consisted of four major 
activities: 

A literature survey to obtain information about capillary 
pumped systems, condensing heat transfer and thermodynamic 
property data for the candidate working fluids (sodium, 
potassium and cesium), and operating characteristics of 
Rankine cycle systems in space. 
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Analytical representation of a number of pumper conceptual 
designs and wick configurations. A design computer code 
was formulated to permit optimization of the heat rejection 
system (pumper, radiator, lines) for the imposed heat loads. 

Formulation and operation of a performance computer program 
to evaluate the characteristics of many coupled heat rejection 
loops for design and off-design operating conditions. The 
effect of one or more radiator failures was determined. 

Identification and examination of operating difficulties as- 
sociated with liquid metal capillary pumped systems. Where 
possible, design solutions to these problems are suggested. 

The wick/condenser configurations evaluated included the Stenger 
design where liquid is introduced at the center and heat is supplied to 
the exterior of a porous plug wick, a conventional wick design which uses 
arterial headers to supply liquid, and the screen wick concept where 
the conventional wick is replaced by a simple screen displaced slightly 
from the heated wall. In the latter case, heat transfer is through the 
liquid space which also serves to distribute liquid from the arterial 
feeds to the screen surface. The analysis showed that the screen con- 
cept is substantially smaller and lighter than the other two concepts. 

The heat transfer area requried (80 ft ) was comparable to that required 
by the EM-pumped configuration (60 ft ). 

The results showed that potassium is the preferable working fluid. 
Sodium was eliminated because its vapor pressure (0 950°F) is not suf- 
ficient to maintain flow. Cesium was found inferior to potassium in 
its chemical properties, its capillary pumping capability, and its 
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thermal conductance. Further, the potassium system is slightly lighter. 
It was not possible to establish the optimum number of heat rejection 
loops with finality. Comparison of the system weights showed a broad 
minimum between about 12 and 24 loops, but the weight variation between 
the minimum and maximum was only 10%. From a control point of view, 
it appeared that about 24 or more loops would be desirable. Failure 
of one loop would then represent only a small perturbation to the total 
system. The reliability, maintainability, and manufacturability are 
important variables in making this decision. The preliminary design 
was based on a twelve loop system, although the performance character- 
istics can be easily related to the 24- loop configuration. 

Operational problems of capillary pumped systems have been iden- 
tified by this study and by others. Those problems which appear to 
be most troublesome are start-up and shutdown of the system without 
freezing in the radiator; the possibility of non-condensible gases 
accumulating in the system resulting in interruption of the pumping, and 
operation in the presence of acceleration forces, both on the ground and 
in space. Potential solutions for these problems, including a gas 
trap for collection of non-condensible gases and a wicked reservoir to 
collect liquid during shutdown operations are briefly described. It 
is difficult to analytically evaluate the effectiveness of these concepts. 

It was concluded that the capillary pump heat rejection system 
concept is feasible as a replacement for conventional EM pumped systems 
and potentially offers substantial advantages in weight, electrical 
power and reliability. A number of troublesome operational difficulties 
associated with a capillary pumped concept remain to be resolved. 
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1.0 INTRODUCTION 


The advanced Rankine-cycle space-electric-power system has been under 
study for several years by the National Aeronautics and Space Administra- 
tion. The configuration of current interest is a three loop system in 
which the primary loop transfers heat from a nuclear reactor to a power 
conversion loop where electric power is generated. Waste heat f rom ''the 
power conversion loop is transmitted by a third loop to a space radiator 
for ultimate rejection to space. The heat rejection loop (actually four 
parallel units) employs a counterflow condenser, an electromagnetic (EM) 
pump and a space radiator. These components represent a sizeable fraction 
of the overall system weight (approximately 18% of the total for an unmanned 
spacecraft version) and require a total of 11 KWe to drive the pumps. 

Of perhaps more concern is the reliability of the present heat rejection 
loops for the long mission times considered and the severe weight penalties 
associated with providing system redundancy. 

The study documented in this report examined the feasibility of 
replacing the present EM-pumped heat rejection loops with a completely 
passive capillary pumped system. This configuration, first proposed by 
Stenger (1_)*» is a two-phase system which transports thermal energy as 
latent heat of vaporization rather than sensible heat of a liquid. The 
device, shown schematically in Figure 3-1, uses the capillary pressure 
head generated by the wick in the heated area to provide the motive force 
for circulation of vapor to the condensing radiator and for liquid flow 
back to the heat source. Capillary pumping is a passive surface tension 
phenomenon with no electrical or mechanical energy requirements and 
potentially avoids the power and reliability limitations of EM-pumping. 


* Underlined numbers in parentheses refer to cited References listed 
following Section 7. Conclusions. 
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A survey of the literature showed that studies of capillary-pumped 
systems, comparable to the one studied here, have been extremely sparse. 
References 1, 2, and 3 are the only contributions which could be found. 

For the most part, the work reported in these references was experimental 
in nature and provided very little analytical background. The work 
discussed in this report is the first major step to analytically 
characterize the performance of the capillary-pump system for a particular 
application and to examine the operational advantages and difficulties 
encountered in that application. 

The primary objective of the present study was to determine the 
feasibility of using capillary pumping in the advanced Rankine cycle power 
system heat rejection loops. In support of this goal, the following tasks 
were performed: 

o A literature survey was conducted directed toward obtaining 

information about capillary pumped systems, condensing heat transfer 
and thermodynamic property data for the candidate working fluids 
(sodium, potassium, and cesium), and operating characteristics 
and difficulties of Rankine cycle systems. 

o An analysis of various conceptual pump designs and wick 

configurations were made to establish a design of minimum size. 

A "design" computer program was formulated to optimize system 
size (minimum weight) for the imposed heat loads. 

o A "performance" computer program was formulated to compute the 
performance of a series of capillary pump heat rejection loops. 

This program was also used to assess performance variations 
resulting from a radiator failure and other off-design conditions. 

o An attempt was made to identify and resolve operating difficulties 
associated with capillary pump systems. For the most part, these 
operational problems are not amenable to analytical treatment 
and would require experimentation for their complete identification 
and resolution. 
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Section 4.0, Systems Analysis Model, describes the general heat 
rejection system configuration and presents the equations to simulate each 
of its components. Section 5.0, System Preliminary design, gives the 
results of applying the design and performance programs to determine the 
optimum working fluid, the number of heat rejection loops, the final 
geometric configuration, and to calculate the performance of the complete 
heat rejection system. Section 6.0, Systems Operational Problems, gives a 
discussion of operational problems, and potential solutions to these 
problems . 

The Appendices contain the details of the analytical work. Appendix 
A, Conceptual Design Analysis, gives the mathematical analysis of specific 
capillary pump configurations. Appendix B, Fluid Property Equations, 
gives the capillary pump working fluid (sodium, potassium, and cesium) 
property equations obtained from the literature. Appendix C, Design 
Computer Program; Appendix D, Performance Computer Program; Appendix E, 
Radiator Optimization Program; and Appendix F, Radiator Performance Sub- 
routine, RADP; each gives a complete description of the computer programs 
used in this study. The description is in sufficient detail that the 
implementation of these programs on a digital computer can be accomplished 
quickly by any interested organization. Finally, Appendix G, Nomenclature, 
summarizes the mathematical symbols used in the body of the report. 
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2.0 GENERAL SYSTEMS REQUIREMENTS 


This study of capillary pumped heat rejection systems was directed 
specifically to application for the Advanced Rankine Cycle Power System 
(ARCPS). The operating conditions of the ARCPS and the environment of its 
proposed space application, therefore, established the general systems 
requirements and constraints on the program reported. This section provides 
a summary of these requirements as well as a brief description of the 
operation of the ARCPS. This information was extracted from the results 
of design studies made by NASA/Lewis Research Center; the reader is 
referred to Reference 4 for a more complete account of the power system. 

The ARCPS is a space power system employing a three loop liquid metal 
circuit as shown schematically in Figure 2-1. A nuclear reactor in the 
primary loop is cooled by liquid lithium. The lithium, circulated by an EM 
pump, passes from the reactor and through a counter flow boiler where 
heat is transferred to the potassium working fluid of the secondary loop. 
Superheated potassium vapor from the counterflow boiler passes to a turbo- 
alternator, a condenser, an EM pump, a preheater and back to the boiler. 

In the turboalternator the thermal energy is transformed into electrical 
energy so that the exit potassium stream is of low pressure and sub- 
saturated temperature. Moisture separators in the turboal ternator divert 
hot liquid to furnish heat for the boiler preheater. The potassium vapor 
is condensed by the heat rejection loop in a counterflow condenser. In 
the conventional system, the working fluid (NaK) is pumped from the condenser 
to radiators for waste heat rejection to space. 

Multiple loop heat rejection systems permit failure of a single loop 
without total loss of the system. As presently conceived, there are four 
separate heat rejection loops, each with its own condenser, pump and 
radiator. Approximately 75% of system capacity can be maintained even 
if one loop fails; e.g., by a meteoroid penetration. The number of loops 
has been selected so that the system meets this end-of-life requirement. 
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NET 1HERMAL INPUT POWER 2.0 MW 
NET SHAFT POWER 433 KW 
ALTERNATOR OUTPUT 398 KW 
NET UNCONDITIONED POWER TO USER 345 KW e 
NET SYSTEM EFFICIENCY 0.172 e 


ALTERNATOR BEARING LUBRICANT 
TURBINE BEARING AND AUXILIARY COOLANT LOOP 
LUBRICANT LOOP (POTASSIUM) 


(POTASSIUM) 



(POTASSIUM) 


Figure 2-1. ADVANCED RANKINE POWER SYSTEM 

NOMINAL 300 KW D 
e 




Table 2-1 presents pertinent system parameters for the ARCPS with 
four conventional heat rejection loops; these data resulted from design 
calculations provided by NASA/Lewis Research Center. For comparison 
purposes, Table 2-2 provides a weight summary of the conventional ARCPS. 
Specific characteristics of the EM pumps and space radiators for the 
conventional heat rejection loops are described in Table 2-3. Additional 
general systems requirements imposed on this study by NASA/Lewis Research 
Center are listed in Table 2-4. 

The geometrical constraints placed upon the system are illustrated in 
Figure 2-2. The reactor is to be placed at the cone apex with a shadow 
shield at its base. These components are located above A-A in Figure 2-2. 
The potassium boiler, pump, turbine, and turboalternator are located in 
the section just below A-A. The capillary pump is to be placed at the top 
of the following section, as shown in Figure 2-3. The main radiators, to 
which the pump rejects heat, are to be located around the outside of this 
latter section. 


TABLE 2-1. NOMINAL 300 kWe ADVANCED RANKINE CYCLE POWER SYSTEM 


I. OVERALL CYCLE 

Reactor power (net to system) 

Unconditioned power to user 

Cycle efficiency, net (uncond. to user/reactor) 

II. PRIMARY LOOP (LITHIUM)- 

Reactor outlet temperature 
Reactor temperature drop, aT 
Pump inlet pressure 
Loop pressure drop, aP 
Flow rate, lithium 
Pump input power 

III. POWER CONVERSION LOOP (POTASSIUM) 

Boiler inlet temperature 
Boiler inlet pressure 
Turbine inlet temperature 
Turbine inlet pressure 
Potassium superheat 

Interspool moisture separation temperature 
Turbine quality at interspool separator 
Interstage moisture removal temperature 
Turbine quality at interstage removal stage 
Turbine exit quality (@n + + 0.80) 

Condenser inlet temperature 
Condenser inlet pressure 
Condenser exit temperature 
Condenser exit pressure 
Boiler feed pump inlet temperature 
Boiler feed pump pressure rise, aP 
Boiler preheater inlet temperature 
Boiler preheater exit temperature 
Boiler flow rate 
Condenser flow rate 
Feed Pump input power 


Radiator outlet temperature 
Radiator inlet temperature 
Heat load, 4 segments, total 
Flow rate, NaK, per segment 
Pump inlet pressure 
Pump pressure rise, P 
Radiator loss 
Condenser loss 
Piping loss 

Pump input power, per segment 
Radiator area, per segment, actual 


MAIN HEAT REJECTION LOOP (NaK) 


kWt 

2000 


kWe 

345 


% 

17.2 


°F (°K) 

2000 

(1478) 

°F (°K) , 

100 

(56) 

psia (N/n f) 

40 

(275800) 

psi (N/m 2 ) 

12 

(82740) 

#/sec( Kg/sec) 19.3 

(8.75) 

kWe 

11.6 



°F (°K) o 

1211 (928) 

psia (N/m ) 

184.6 1272820 

°F (°K) 2 

2100 (1423) 

psia (N/m ) 

163 1123890 

°F (°K) 

73 (41) 

°F (°K) 

1520 (1100) 

% 

90 

°F (°K) 

1300 (477) 

% 

90 

% 

89 

°F (°K) 2 

1220 (933) 

psia (N/m ) 

5.4 37230) 

°F (°K) 2 

985 803) 

psia (N/m ) 

3.4 (23440) 

°F (°K) 2 

990 (823) 

psi (N/nr) 

21 1 . 2(1 456220 

°F (°K) 

1001 (811) 

°F (°K) 

1211 (927) 

#/sec( Kg/sec 

) 2.08 (.943) 

#/sec( Kg/sec 

) 1.80 (.816) 

kWe 

10.7 


°F (°K) 

980 

(800) 

°F (°K) 

1200 

(922) 

kWt 

1536 



#/sec( Kg/sec) 7.9 (3.58) 

psia (N/m 2 ) 10 68950) 

psi (N/m 2 ) 12 (82740) 

psi (N/m 2 ) 4 (27580) 

psi (N/M 2 ) 5 (34475) 

psi (N/m 2 ) 3 (20865) 

kWe 2.75 

sq-ft (m 2 ) 190 (17.7) 
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TABLE 2-1. NOMINAL 300 kWe ADVANCED RANKINE CYCLE POWER SYSTEM (Cont'd) 


V. ALTERNATOR LUBE AND COOLANT LOOP (POTASSIUM) 


Heat load, total 
Radiator outlet temperature 
Radiator inlet temperature 
Flow rate, K 
Pump pressure rise, aP 
Pump Input power 
Radiator area, actual 

TURBINE LUBE AND COOLANT LOOP (POTASSIUM) 

kWt 

°F (°K) 

°F (°K) 
#/sec(Kg/sec) 
psi (N/m 2 ) 
kWe 

sq-ft (m 2 ) 

78.1 

700 

739 

10.6 

25 

7.3 

126 

(644) 

(666; 

(4.81) 

(172380) 

(11.7) 

Heat load 

kWt 

22.5 


Flow rate, K 

#/sec(Kg/sec) 

5.9 

(2.68) 

Pump pressure rise, aP 

psi (N/m 2 ) 

10 

(68950) 

Radiator exit temperature 

°F ( °K) 

900 

(755) 

Radiator inlet temperature 

°F (°K) 

920 

(766) 

Pump input power 

kWe 

1.7 

(1.77) 

Radiator area, actual 

sq-ft (m 2 ) 

19 

ELECTRONICS COOLANT LOOP (DC 200) 

Radiator outlet temperature 

°F (°K) 

140 

(333) 

Radiator inlet temperature 

°F (°K) 

150 

(339) 

Heat load, total 

kWt 

10.4 


Flow rate, DC 200 

#/sec(Kg/sec) 

2.1 

(.953) 

Pump pressure rise, AP 

psi (N/m 2 ) 

60 

(413700) 

Pump input power (PMA) 

kWe 

1.2 

(30.2) 

Radiator area, actual 

sq-ft (m 2 ) 

325 
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TABLE 2-2. NOMINAL 300 kWe ADVANCED RANKINE 
ESTIMATES 

CYCLE POWER 

SYSTEM WEIGHT 


Lbs 


Reactor (2 MWt, 0.7 B.U., 20,000 hr-life) 
Reactor controls, drive, structure 

1000 

200 

(499) 

(91) 

Lithium primary loop, total 

1500 

(680) 

Power conversion loop, K, total 

2930 

(1329) 

Main heat rejection loop (NaK), total 
Radiators panels (4), 2170 
Pumps (4), 480 
Expansion tanks (4), 400 
Piping, 430 

NaK inventory, included in above 

3480 

(1578) 

Alternator coolant loop, K, total 

580 

(263) 

Turbine coolant loop, K, total 

210 

(95) 

Electronic cooling loop, DC-200, total 

530 

(240) 

Electrical equipment, total 

1170 

(531) 

Structure (component & piping supports, 
radiator supports, etc.), assumed 

3000 

(1361) 

Shielding shadow, unmanned, 10° halfcore 
angle, 150 ft. distance to payload), total 
Unmanned primary, 4000 
Manned (0.1% fission products leakage), 
Primary, 3000 
Secondary, 7000 

Total : Unmanned 

10,000 hrs. 

18,700 lbs=54.2 lbs/KWe net 
(8482 Kg=24.6Kg/KWe net) 

Manned 

24,700 

(11204 

lbs=71 .6 lbs/KWe net 
Kg=32.5 Kg/ KWe net) 
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TABLE 2-3. CHARACTERISTICS OF EM PUMPED HEAT REJECTION COMPONENTS - 
NOMINAL 300 kWe ARCPS 


PUMP 

Type 

Number 

Fluid 

Flow rate, #/sec (Kg/sec) 

o 

Head rise, psi (N/m ) 

Inlet pressure, psia (N/m ) 
Input power, kWe 
Efficiency, % 

Inlet temp. , °F (°K) 

RADIATOR 

Type 

Number 

Fluid 

Maximum Temp., °F (°K) 

Temp, drop, °F (°K) 

Tube & armor material 

Fin material 
Tube, i .d. , in. (m) 

Fin, thickness, in. (m) 

Meteoroid protection 

Survivability 

Fin effectiveness, % 

Coatings 

Coating emittance 
Coating absorptivity 

Effective sink temp., 

°F (°K) 

2 

Total area, sq-ft (m ) 


EM 

4 

NaK 

7.9 (3.58) 
12 (82740) 
10 (68950) 
2.75 
15 

980 (800) 


Armored tube and fin 
4 

NaK 

1200 (922) 

220 (122) 

SS 

SS clad Cu 
0.17 (.00432) 

0.025 (.00635) 

0.99 probability of no puncture in 
20,000 hours 

3 out of 4 

93.6 

iron titanate 

0.90 

0.75 

105 (314) 

760 (70.6) 
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TABLE 2-4. GENERAL SYSTEMS REQUIREMENTS FOR CAPILLARY PUMPED 
HEAT-REJECTION SYSTEM 


Heat rejected, initial 

Condensing fluid 

Potassium Flow Rate 

Condenser inlet quality 

Condenser inlet temperature. 
Pressure 

Condenser outlet temperature, 
Pressure 

End-of-life heat rejection capabili 
Survival probability 
Mission life 

Condenser material 
Radiator material 

Meteoroid criteria: 

Meteoroid density 

Relative meteoroid velocity 

Constants for meteoroid equati 

a 

6 

Launch vehicle 
Radiator sink assumptions 

Radiator supported load 
(see Figure 2-2) 


1536 kW 
Potassium 

1.80 Ib/sec (.816 Kg/sec) 

89% 

1 220°F , 5.4 psia (933°K, 37230 N/m 2 ) 

980°F , 3.4 psia (800°K, 23440 N/m 2 ) 
ty 75 percent initial (1152 KW) 

0.99 & 0.999 

20.000 hrs. ft & 43,800 hrs. (7.2xl0 8 sec 
& 15.4x10° sec) 

Cb-lZr 

Stainless steel tube and armor; 
stainless steel clad copper or 
stainless steel fins; iron 
titanate coating, e t 0.90 

3 

0.5 gm/cm 
25 km/sec 
n N = am - S 

10" 14,41 gm 1,22 /m 2 sec 

1.22 

Two-stage Saturn V 

300 nm equatorial orbit; radiator's 
axis parallel to earth's surface; 
sun at zenith 

15.000 lbs., 10° half-cone angle 
(6810 Kg) 
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23.1 Ft Max. 
| (7.05m) 


MAIN RADIATOR 

840 Ft 2 AVAILABLE 
(78. Im2 ) 


— 33 Ft — 
(10.1m) 

SATURN V 


6.8 Ft (2.07m) 


LOW TEMPERATURE RADIATOR 
360 Ft 2 AVAILABLE 
(33.5m 2 ) 


NO SHROUD ON RADIATORS. 

15000# SYSTEM WEIGHT APPLIED AT "a-a" RING 

FIGURE 2-2. SCHEMATIC OF RANKINE SYSTEM ON 
2-STAGE SATURN V 



3.0 CAPILLARY PUMP CONCEPTUAL DESIGN 


The formulation of a conceptual capillary pump unit is a problem of 
designing a wick and arranging it relative to the heat source, liquid 
feed and vapor exit so as to obtain high thermodynamic and hydrodynamic 
efficiencies. This makes it possible to build compact pump units which 
are lightweight arid will fit easily within the geometry available. High 
thermodynamic and hydrodynamic efficiencies are manifest by small tempera- 
ture drop from the heat source and the wick/ vapor interface, and low 
frictional pressure loss on the liquid side. 

An early task in this study was the generation of a conceptual design 
and configuration for the capillary pump. The design concept selected was 
then to be used as the basis of a detailed comouter proaram of the heat 
rejection system. 

The starting point for this task was a careful analysis of the 
Stenger type pump. The detailed results of this analysis are presented 
in subsection 3.1, The Stenger Capillary Pump Design. A flat wick config- 
uration, arterially fed liquid on the vapor side evolved as a product 
of the analysis of Stenger's design; this concept is analyzed in subsection 
3.2, Capillary Pump with Conventional Wicks. Further consideration pro- 
duced a concept employing a single screen wick with an artery liquid feed. 
The analysis of this concept is given in subsection 3.3, Capillary Pump 
with Screen Wicks. 

3 . 1 The Stenger Capillary Pump Design 

The Stenger-type design is shown schematically in Figure 3-1. The 
distinguishing feature of this design is that the liquid is supplied to 
the wick from one side, heat is supplied through the wall on the opposite 
side, and the vapor spaces are cut into the wick or wall at the interface 
between the hot wall and the wick. The working fluid is vaporized from 
the surfaces of these vapor spaces. Figure 3-1 shows the vapor spaces cut 
in the wall. Thus, the heat is transported to the wick through fins. A 
rectangular configuration of the same basic design but vapor spaces cut in 
the wick material is shown in Figure 3-2. 
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FIGURE 3-2. SCHEMATIC OF CAPILLARY BOILER 



The cylindrical configuration shown in Figure 3-1 was subjected to an 
extensive analysis to determine the appropriate size of pump required to 
reject the total waste heat load imposed on the system and to determine 
the sensitivity of the size to changes in the system parameters. The 
details of this analysis are presented in section 1 of Appendix A, Analysis 
of Stenger Type Cylindrical Capillary Pump. This analysis optimized the 
pump by determining the pump dimensions which resulted in a minimum heat 
transfer area. This area was found to be inversely proportional to the 
square root of the fin thermal conductivity and the vapor flow velocity. 
Therefore, increasing the conductivity or the velocity results in a 
reduction of required heat transfer area. The analysis results showed that 
the vapor velocity at the exit of the vapor space was a major factor in 
limiting the axial length of the pump. Increasing the fin length or 
increasing the gap/fin ratio provides more vapor volume but at the expense 
of temperature drop which, in turn, adds substantially to the overall 
radiator weight. Therefore, to reject the total specified heat load would 
require a very large number of short pumpers; 755 for the sample case 
given in the Appendix. Further, to maintain a temperature drop across the 
wall of about 30°F(17°K), the total heat transfer area required is of the 
order 300 ft (28m ). This is five times the heat transfer area used in the 
single phase NaK heat exchangers in the present design (see Section 2.0, 

System Requirements). Since this limit is hydrodynamic, there is no advantage 
in cutting the vapor passages into the wick to create more wick/vapor area 
for vapor generation. 

These calculations clearly show that vapor passages between the wick 
and the hot wall is inherently limited in capacity. This result, plus the 
packaging advantages in using a flat configuration instead of cylindrical, 
led to the pumper concept analyzed in the following subsection. 

3.2 Capillary Pump with Conventional Mick 

A "flat" configuration was derived which uses arteries to distribute 
the liquid on the vapor side of the wick. This arrangement is shown 
conceptually in Figure 3-3. 
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FIGURE 3-3. SCHEMATIC OF CAPILLARY PUMP CELL 
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This configuration was also analyzed in detail, the details being 
presented in Section 2 of Appendix A. The analysis, again, optimized the 
pump by determining the system dimensions which will reject the required 
heat load with a minimum heat transfer area. The wall to vapor tempera- 
ture difference was limited to 30°F (17°K) to prevent nucleate boiling 
problems. The results showed that very thin wicks were required (^0.02 ft 
(0.006m) for typical materials) and that the total heat transfer surface 
area would be large compared to that required in the conventional EM-pumped 
heat rejection. For example, if the liquid feed arteries are separated by 
one foot, 185 ft (17.2m ) of wick surface area are required. Note, that 
the 30°F (17°K) temperature drop does not include that across the condensing 
potassium film or across the separating wall. 

The results clearly show that a flat wick system with feed arteries on 
the vapor side gives much greater efficiency than the Stenger pump (nearly 
a 50% reduction in heat transfer area for comparable frictional pressure 
loss on the liquid side and temperature drop). The heat transfer area, 
however, is still three times larger than that required by the conventional 
system. 

3.3 The Screen Wick Design 

The capillary pumps described above use conventional fine pored wicks. 
Liquid flow through these wicks is a very dissipative process, and the 
pump is hydrodynamically inefficient. In order to remove the imposed 
heat load with the small temperature drop desired and low frictional 
pressure drop, fairly large heat transfer areas are required with liquid 
feed arteries closely spaced. To alleviate this problem, the composite- 
wick concept, widely used in heat pipe design, was applied to the capillary 
pump. This concept recognizes that it is only the fine-pored surface of 
the saturated wick which provides capillary pumping. Thus, only a two- 
dimensional wick is necessary. The third dimension, necessary for liquid 
flow, can be devoid of solid obstructions, thereby minimizing flow 
resistance. 
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The screen wick concept was analyzed in considerable detail to 
determine the required system dimension for achieving the system require- 
ments. The details of these analyses are presented in section 3 of 
Appendix A. 

In this analysis, the parameters of gap spacing, temperature drop 
and artery spacing were allowed to vary and the total heat transfer area 
required to remove the total heat load was calculated. The heat source 
temperature, the screen mesh (400), the working fluid (potassium) and the 
allowable pressure loss in the liquid were fixed. Figures A-9, A-10, and 
A-ll show the initial analysis results. These results appear very encour- 
aging since they show that only about 30 ft are required as compared to 

O O 

185 ft and 300 ft for the two previous concepts under the same operating 
conditions. However, gap widths (wall to screen) of less than 10 mils were 
calculated. From a practical standpoint, it was felt that 15 mils spacing 
represented a lower value. Thus, the area required for the screen wick, 
for comparable temperature and pressure drops as used above, increases to 
about 80 ft (7.45m ) (the present EM-pumped system utilizes 60 ft ). 

This result, however, shows that the screen wick is substantially more 
efficient than the other concepts considered. 

An analysis was carried out to determine the performance improvement 
obtainable by tapering the screen-heated wall spacing away from the feed 
artery. An improvement in performance is expected because of the decreas- 
ing fluid flow rate. It was found that an optimum angle of only about 1/6 
degree existed and that the improvement in performance was about 4%. The 
benefits are not compatible with the increase in fabrication problems and, 
consequently, further analysis was confined to the parallel screen geometry 
because of the inherent simplicity of manufacture. 
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A word is in order at this point regarding the fabricabil ity of the 
screen wick design concept. Referring to Figure 3-4, it is envisioned 
that the first unit could be made by machining out the liquid arteries 
and vapor escape holes in a solid metal sheet to form the artery grid. 

Fine screenwire 400 mesh) would then be stretched over the face of the 
grid and the assembly sintered. Note that there must be no passages 
between the liquid feed arteries and the vapor space greater than the 
opening in the screen. Spacer nubs would be machined at appropriate inter- 
vals on the surface of the condenser duct to accurately maintain screen- 
heater surface spacing. The artery grid/screen assembly would then be 
positioned and welded to the surface of the condenser duct. Finally, 
the vapor chamber is welded to the artery grid. Structural support will be 
necessary to maintain dimensional constraints for the vapor chamber and 
the condenser duct. 

Based on the results of the analyses described above and a cursory 
examination of the problems of fabrication, it was concluded that the 
screen wick design offers substantial advantages over the other concepts 
studied with respect to performance, temperature difference, required 
area and probably overall weight. In addition, the inherent simplicity 
offers obvious fabrication advantages. Consequently, the screen wick 
design was selected for the detailed system design and performance 
studies described in the following sections. 
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4.0 SYSTEM ANALYSIS MODEL 


This section of the report presents a description of the system analysis 
method, includinq the equations used to analyze each system component, 
the assumptions made in deriving and solving these equations and the boundary 
conditions required for their solution. 

4.1 CAPILLARY PUMP MODEL 

A physical model of the capillary pump and the heat rejection system 
was- derived as a result of the conceptual design studies reported in 
Section 3. This model, which forms the basis of the computer programs 
developed, is described in this section. 

The basic configuration of the capillary pump is that shown in Figure 
3-4 and Figure 4-1. These drawings show a long, narrow rectangular potas- 
sium condenser channel with pumps attached to the long sides. The pump is 
a rectangular chamber into which a network of arteries is built to carry 
the working fluid to the screen wick. The pump possesses the following key 
features . 

A screen is placed a fixed distance from the condenser channel wall. 
Liquid is fed into the artery grid from one side (the bottom of Figure 4-1) 
where it flows into the space between the hot wall and the screen. The 
vapor generated at the screen flows to the exit ports where it enters a 
collection manifold and is transported to the condensing radiator. 

The dimensions of the pumper which enter the design program as free 
parameters are the width between the hot surface and the screen (gap width), 
the half distance between arteries (element half width), the heat transfer 
area and the radius of the holes in the screen (capillary effective radius). 
The design program was used to determine the value of these parameters 
which resulted in a minimum heat rejection loop weight. 

The screen wick must be supported during the pump operation because of 
the small pressure difference across it. This support is envisioned to be 
given by a grid work of nubs on the hot potassium wall or by a very course 
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FIGURE 4-1. CAPILLARY PUMP PHYSICAL MODEL 



screen of controlled thickness, placed behind the wick. The first 
method gives lower pressure drop for flow behind the screen, but is 
probably more difficult to manufacture. Both methods appear feasible. 

Initially, it was supposed that each pumper straddle the potassium 
condenser channel, and the vapor generated on each side was mixed in a 
common header before being transported to the radiator. The performance 
program was written on this supposition so that the heat rejection loops 
were in series. Thus, the state properties of the condensing potassium 
leaving loop n were the input conditions for loop n+l . Later, it was 
found that some simplification of the system plumbing could be realized 
by having each loop take heat from only one side of the condenser channel 
In this case, each two loops are in parallel. For example, loop 1 and 2 
are subjected to the same condensing potassium conditions. A method had 
to be derived whereby the series-parallel combination of loops performance 
could be obtained from a pure series calculation. This method will be 
discussed in Section 5. 

4.2 CAPILLARY PUMP EQUATIONS 

Consider Figure 4-2, which shows a schematic of the capillary pumped 
heat rejection loop. The circled numbers are points where the state of 
the working fluid is to be determined. Point 1 is the vapor exit of the 
pump. Region 1 -+ 2 is the vapor line leading to the radiator. Point 3 
is the exit of the radiator and region 3 -*■ 4 is the liquid return line 
from the radiator to the pumper. 

The equations must be solved for two types of problems, (1) a design 
solution and (2) a performance solution. The design program begins with a 
specific Dump design, imposed source and sink temperatures and heat input 
rate and calculates the corresponding optimum (minimum weight) radiator 
dimensions. The performance program begins with a given loop design (both 
pump and radiator), imposed source and sink temperatures and calculates 
performance of a series of identical capillary pumped loops attached to 
the source. 
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The thermodynamic and physical properties are functions of tempera- 
ture in the analysis. The equations which define these functionalities are 
presented in Appendix B. 

Since the analyses to be performed are steady state, the presentation 
to follow can be- simplified by giving the overall conservation of mass 
equation as 


W.j = W = Constant 4-1 

This states that the mass flow rate at any point (i) in the system is 
constant. The equations to follow are written with one flow rate, W. 

Heat, given up by the condensing potassium, is conducted through 
the condenser wall, working fluid film and screen wick to the liquid-vapor 
interface. The interface temperature is spatially constant and working 
fluid is neglected. Thus, the process is just condensation and conduction 
and can be represented by 




4-2 


The heat transfer coefficient 



The energy conservation equation is, simply, 

Qp = w(h r h 4 ) 


4-3 


4-4 


The variable h-j is the saturation enthalpy of the working fluid vapor at 
T-| and thus these two variables are related by a thermodynamic equation 
from Appendix A. 


The highest pressure in the system is P-| which is the saturation 
pressure of the working fluid at the temperature T^ . These variables are 
also related by the vapor equations from Appendix B. 
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The momentum equation for flow through the pumper is 


P -P = ^ k - 
K 1 k 4 R k 



1 


p A 2 

4 A 4 


6pk At 2 L 2 
p(X f +X s )X f 3 A g c 


4.-5 


The first term is the pressure rise due to capillary forces which 
will adjust, to a limit of K=1 , to match the pressure losses in the system. 
The second term is the pressure loss due to momentum gain of the working 
fluid upon evaporation and the last is the friction pressure drop in the 
liquid flow. 

4.3 VAPOR TRANSPORT LINE 

The vapor line is assumed to be adiabatic and therefore the conserva- 
tion of energy equation states that 


T 


1 



4-6 


The momentum equation gives the pressure drop in this line as, 


aP 


1 


2 




9c 
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where the friction factor assuming turbulent flow is given by Blasius 
equati on , 


0.0791 

/WDYO.25 

vw 


4-8 


Substitution of equation 4-8 into 4-7 gives 


AP 


1 + 2 


0.263(10 _11 ) 




4-9 
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4.4 LIQUID TRANSPORT LINE 


The liquid line is also assumed to be adiabatic and, 



4-10 


The pressure drop through the liquid line is given by an equation 
similar to equation 4-9, again assuming turbulent flow. 

11 is ’ 0.25 1.75 , 

iP 3*4 = 0.0379 (10- 8 )^^— (t) -34^ 4-11 

4.5 RADIATOR/CONDENSER 


4.5.1 Heat Transfer Anal' 


Heat rejection in the radiator involves convection from the fluid to 
the tube wall, conduction from the tube to the fins and radiation from the 
tubes and fins to space. 


Heat Transfer Equations 


The analysis technique in the radiator involves dividing the radiator 
into ten longitudinal increments. Heat balance equations are solved to 
determine the outlet conditions of each incremental element for known inlet 


conditions. Calculation starts at the condenser inlet and marches to the 


outlet. A representati ve element is shown in Figure 4-3. 


The radiation fin effectiveness is utilized to account for temperature 
drop from the tube to fin. Heat transfer in the direction parallel to the 
tubes is neglected, and the inner surface of the radiator is assumed to be 
insulated. 
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FIGURE 4-3. RADIATOR ELEMENT 
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Heat transfer from a radiator element can then be expressed as: 


Q = e*a*D^.*N^*AL 



e.a.L t .N t .AL. n (T w 4 - T s| 4 ) 


4-12 


where T w and T g are the tube wall and sink temperatures, respectively, and 
n is the mean fin effectiveness for the element. Fin effectiveness tables 
are included as part of both the design and performance computer programs. 

The first term is heat transferred from the fin area under the tube 
which is assumed to have an effectiveness of one. The fin effectiveness 
is determined for each element and assumed to be uniform over the element. 
Temperature of the wall is assumed constant for each element. 

The heat transfer by radiation is equal to that transferred to the 
tube inner wall by convection: 

Q = h-A t - (T f - T w ) 4-13 


In the condensing section, the fluid temperature over an element is assumed 
constant and sensible heat transfer is neglected. The heat transfer from 
the fluid is equal to: 


q “ (X in - W 

In the subcooler section, the heat transfer is expressed by: 

q - % < T in - T out> 

Heat Transfer Coefficients 

Condensing heat transfer coefficients were input as constant for 
each fluid. Values used were: 

Potassium = h c = 10,500 Btu/hr-ft 2o F (Reference 5) 

Sodium & Cesium = h c = 3400 Btu/hr-ft 2o F (Reference 6) 
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Resistance of the liquid film was neglected in condenser section heat 
transfer calculations. Assuming a liquid-vapor velocity ratio of one, the 
following Table 4-1 gives the conductance of the liquid layer as a function 
of local fluid quality, X, for potassium. 


Table 4-1. Film Conductance Versus Quality 


X 

Film Conductance (Tube D=l"), 

Btu/hr ft 2 °F(kw/m 2 °K) 

1.0 

.75 

60 x 10 5 

34 x 10 3 

.5 

20 x 10 5 

11.3 x 10 3 

.1 

2.2 x 10 5 

1.25 x 10 3 

.05 

LO 

O 

X 

.57 x 10 3 

.01 

0.1 x 10 5 

.057 x 10 3 


As can be seen from Table 4-1, the film conductance becomes of the same 
order of magnitude as the condensing heat transfer coefficient (10^) only 
very near the end of the condensing section; ie., small quality, and there- 
fore neglecting the film resistance introduces a small error. 

The heat transfer coefficient in the radiator sub-cooler section is 
based on a correlation of Nusselt number versus Peclet number as recommended 

by Reference 7. 

Nu = 0.625 Pe’ 4 4-16 


Sink Temperature 

Direct solar, earth albedo and earth thermal heat inputs to the 

radiator exterior surface, averaged over one orbit, are approximately 

120 Btu/hr-ft 2 (0.378 — >(-) a 300 n.m. earth equitorial orbit was assumed. 

in' - 
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This gives an equivalent sink temperature for the radiator of 68°F (293°K) 
which was used as input to the optimization and performance program. At the 
nominal radiator temperature (1200°F, 922°K) the influence of this sink is 
negligible. 

4.5.2 Radiator Pressure Drop Calculations 

The overall static pressure change between inlet and outlet of the 
radiator is subdivided as follows: 

1. Inlet header frictional pressure loss 

2. Header-to-radi ator turning and entrance loss 

3. Two phase frictional condensing pressure drop 

4. Pressure rise due to momentum recovery of condensed liquid 

5. Frictional loss in liquid subcooling section. 

6. Tube to exit header turning loss 

7. Exit header frictional pressure loss 

Inlet Header Frictional Loss 

The headers are designed internal to the computer programs such that 
the vapor velocity is constant throughout the header. The velocity used 
in the header design is the same as that at inlet of the radiator tubes. 
Pressure drop is calculated from the following equation using the average 
header diameter. 


0 31 6 pV 2 L 
.25 ’ 2g ' D 
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Turbulent flow is assumed with no check of the Reynolds number. 

Inlet Turning and Entrance Losses 

Entrance and turning losses are assumed to be equal to one velocity 

head. 

Two Phase Pressure Drop 

In analyzing two-phase frictional pressure drop, it is convenient to 
introduce the Lockhart-Martinel li frictional pressure drop modulus, 
defined as: 
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2 _ dP/dL) Two phase 
dP/dL) Vapor only 
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? 

The quantity, 0 , is a measure of the influence of the liquid phase on the 

loss in pressure due to friction. Accepting this correlation, the problem 

2 

reduces to determining the value of 0 consistent with the existing two- 
phase flow pattern. 

A rough wall model was developed for the turbulent- turbulent 
regime (8). Comparisons of this model with test results for potassium 
are given in Reference 13. The correlation involves an experimental correct- 
ion of the original Lockhart-Martinelli correlation using Refrigerant 11. 
Formulation of the correlation is: 


♦ 


2 


Ce 

.046 


i, 2 

g 
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Where the relation for Ce is 
Ce = 0.1 , 


0 < 57.23 


Ce = 4.182/e’ 9225 , 57.23 < e < 327.59 


Ce = 0.02, 


e > 327.59 


Where 


C ' 9r 


e = - 




<f>g is a function of the quantity, K, below. 


w f 

w - 


rmi 


1/2 
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The 4 >g v.s. K relation is given in Figure 4-4 (§_). Investigation of flow 
regimes in typical optimum weight radiators shows that in all cases the 
vapor flow is turbulent. The film Reynolds number is in the laminar regime 
for a substantial length of the radiator. The above correlation has been 
utilized although it is recognized that in most of the radiator the film 
Reynold's number is below that where experimental verification is available. 
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FIGURE 4-4. LOCKHART-MARTINELLI PRESSURE DROP 
CORRELATION FOR TWO PHASE FLOW 
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In the computer programs developed, the condenser section is divided 
into ten increments. The pressure drop is calculated for each increment 
using local fluid conditions and the total two-phase drop is calculated by 
summing all individual increment pressure drops. 

4.5.3 Pressure Rise Due to Momentum Recovery 

There is essentially no liquid present at the condenser inlet 
(X = 1.0) and at the condensation interface the liquid velocity is assumed 
zero; therefore, there is no change in liquid momentum. Since there is no 
vapor momentum at the interface (zero velocity and flow rate) the momentum 
pressure recovery becomes: 



4.5.4 Liquid Phase Pressure Drop 

Frictional losses in the subcooler and exit header where liquid phase 
exists, have been neglected because of the low velocities and short flow 
path involved. 

4.6 METEOROID PROTECTION 

Calculation of required tube wall thickness to prevent meteoroid 
puncture requires relations for penetration thickness and specification 
of the meteoroid environment. The following penetration equation was 
adopted ( 9 ): 

• (§)“■ 

where the terms are explained in Appendix G. 
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Specification of the meteoroid environment in addition to the velocity 
and density must include a relation between the flux density and mass, 

N = a*nf B 4-24 


where N is the flux density of meteoroids with mass greater than m. The 
constants a and 3 are specified as 


a = IQ" 14 * 41 gram 1 * 22 /m 2 -sec 

6 = 1.22 


The above relations must be combined with a probability equation, 
a Possion distribution: 


x=N 

P(N <N‘) =£ 
x=0 


1 


,1 


r n-p 


.(.» • Pi 


x 


x: 


Assuming 
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The quantity n*p can be determined in terms of the mass distribution 
equation as: 

n-p = a * M cr i t " 6 -T>A 4-26 


^crit = Minimum mass which will give penetration 

x = Mission time 
A = Vulnerable area 


Equation 4-26 can be used to eliminate the meteoroid diameter from equation 
4-23 and allow calculation of the thickness required for a given number of 
penetrations and probability. The meteoroid diameter which must be 
designed for becomes: 



4-27 
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I he final penetration equation becomes: 



Assuming a stainless steel armor material, the following relation for 
thickness required in terms of mission time, vulnerable area and the 
quantity n*p results: 


t = 9. 35x1 0“ 3 


(—) 

\n*p/ 


0.273 


4-29 


Where t is in cm, t in days and A in square meters. 


The quantity np is a function of the number of penetrations allowable 
and the survival probability. This data is obtained from a solution of 
equation 4-25 and is summarized in Table 4-2 below. 


Table 

4-2. n*p 

Relation 


Number of 
Penetrations 

P(N) = 0.99 

P(N) = 0.999 

0 

.010 


.001 

1 

.150 


.048 

2 

.430 



3 

.830 


.430 

4 

1 .28 


.70 

5 

1.80 


1.12 

Shielding configuration 

assumed is 

shown below. 
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This configuration allows a reduction in side wall thickness because 
of the scattering effect of the fin surface. A reduction by a factor of 
four was adopted from Reference 9. 
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5.0 SYSTEM PRELIMINARY DESIGN 


This section describes and gives the results of studies made in 
formulating a preliminary heat rejection system design. These studies 
involved the application of the design and performance programs to select 
a working fluid, number of heat rejection loops and individual loop size 
to reject the imposed 1536 Kw heat load. The system design was also 
analyzed to gain information on its performance when subjected to off design 
conditions. 

Subsection 5.1, Design Studies, presents the results of those studies 
in formulating a specific capillary pumped heat rejection system design. 
Subsection 5.2, System Conceptual Design, gives a quantitative summary of 
the system design. Subsection 5.3, Performance Studies, gives the 
normal and off design performance of the system. 

5.1 DESIGN STUDIES 

Studies were made to determine the best specific design for a complete 
capillary pumped heat rejection system. These studies employed both the 
design and performance computer program and a comparative evaluation of 
design factors, such as fluid properties, manufacturabi 1 i ty ,rel i abi 1 i ty 
and control abi 1 i ty. The results of these studies are presented in this 
section. 

5.1.1 Working Fluid Selection 

The evaluation of working fluids for capillary pumped systems must 
consider several factors. As a minimum, these include its chemical 
reactivity properties, its heat transporting and capillary pumping capa- 
bility, its vapor pressure at the operating temperature, and the heat 
rejection system weight. The potential working fluids, sodium, potassium, 
and cesium, are evaluated below in light of these criteria to establish 
which has the most desirable properties. 
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The first requirements of a working fluid for capillary pumped systems 
are that it wet the wick material and be non-corrosive to the wick and 
other materials of construction. It is also desirable, for safety sake, 
that the fluids are relatively inert. All three potential working fluids 
wet stainless steel well. The corrosive properties are likewise comparable. 
Corrosion data indicate that most metals resist corrosive attack by the 
molten alkali metals, providing that they are oxide-free (1_0, 11). 

The alkali metals are all very reactive materials. In order of 
decreasing reactivity they are cesium, potassium, and sodium. Table 5-1 
gives a comparison between the reactivities of the three metals with some 
common inorganic materials (10) . The metals are so reactive that they 
must all be handled with great care and the heat rejection loops will 
have to be completely free of oxygen. There is a slight perference of 
sodium, since it is slightly less reactive. 

Analyses of capillary pumped systems show that the pumping capability 
of a working fluid is proportional to the property group (12). 

N = PlL 5-1 

p 

Table 5-2 gives the properties of the three fluids at 1200°F (922°K). 

These data show that sodium is the far superior working fluid with regard to 
its pumping capability. The value of the property grouping for sodium is 
four times greater than that for potassium and sixteen times greater than 
that for cesium. The primary reason for this advantage is that sodium has 
a much larger heat of vaporization and surface tension than the other two 
fluids. 

In summary, the three potential working fluids can be ranged according 
to their capillary pumping ability as sodium, potassium, and cesium in 
descending order. 
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Table 5-1. Chemical Reactions of the Alkali Metals 


With 


Sodium 


Potassium 


Cesium 


Oxygen 

Fairly rapid 

Fairly rapid 

Burn in air 

Nitrogen 

No reaction 

No reaction 

No reaction 

Hydrogen 

Rapid reaction above 
300 °C 

Rapid reaction above 
300 °C 

Reacts slowly at 600°C 

Water 

Rapid 

More rapid 

Most rapid 

Carbon 

Reacts at 800-900°C to 
give Na 2 C 2 

Dissolves to solid 
solution; no carbide 
formed 

No carbide formed 

nh 3 

Reacts to give NaNH„ 
(slow) 

Reacts to give KNH, 
(easy) 

Reacts to ive CsNH 2 
(most rapid) 

CO 

No carbonyl formed, except 
in liquid NH 3 

Forms explosive carbonyl 

Absorbs CO at room 
temperature 

C°2 

Reacts 

Reacts 

Most rapid reaction 

Halogens: 

F 

Cl 

Br 

I 

Ignites 

Reacts 

Slow reaction 
No reaction 

Reacts violently 
Reacts violently 
Detonates 
Reacts, ignites 

Reacts most vigorously of 
all alkali metals 

h 2 S0 4 : 

Cold, cone. 
Cold, dilute 

Fairly vigorous 
Very vigorous 

Explosive reaction 
Explosive reaction 

Explosive reaction 
Explosive reaction 


Table 5-2. Properties of Alkali Metals 



cal 

A gm 

( joule\ 
^ Kgm J 

gm 

p 3 
cm 

/Kgm\ 

w) 

_ dynes 
g cm 

/Newtons \ 
l meter J 

dyne sec 

M 2 

cm 

/Newton sec\ 

V n , 2 ) 

N 

sec 

Sodium 

984.58 

(4119483) 

0.798 

(798.) 

138.15 

(0.13815) 

0.001975 

(0.0001975) 

230,000 

Potassium 

460.27 

(1925770) 

0.691 

(691.) 

73.35 

(0.7335) 

0.001475 

(0.0001475) 

66,000 

Cesium 

117.67 
(492331 ) 

1.495 
(1495. ) 

42.89 

(0.04289) 

0.001716 

(0.0001716) 

18,400 


It is desirable for the temperature difference between the heat source 
and the pump vapor temperatures to be small for two reasons. First, the 
higher the vapor temperature, the more efficient the radiator and the more 
pressure available to generate flow and second, the amount of superheat at 
the hot surface that can be tolerated is limited to about 100°F (38°K). Thus, 
the best fluid is one which has a high thermal conductivity. Table 5-3 
compares the thermal conductivities of the working fluids at 1200°F (922°K). 


Table 5-3. Thermal Conductivity of Alkali Metals (1200°F, 922°K) 



k cal/cm sec °K 


Sodi urn 

35.55 

(14874.) 

Potassium 

19.55 

(8180.) 

Cesium 

9.00 

(3766. ) 
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The data in this table shows that sodium is the preferable working 
fluid, followed by potassium and then cesium. 

The vapor pressure of the working fluid at the pump temperature is the 
total driving pressure which generates flow. This vapor pressure must be 
sufficient so that it is greater than the sum of all the pressure drops 
around the loop. A practical heat rejection loop design will have about 
one-half psi total pressure loss. This can be reduced by increasing the 
tube diameters leading to and from the radiator and in the radiator. 

However, the size of the radiator becomes excessive. Table 5-4 gives a 
comparison of the vapor pressures for the three fluids at several tempera- 
tures within the range of interest to this study. The data show that at 
the highest temperature of 1200°F (922°K) all the fluids have a high enough 
vapor pressure to produce flow, although sodium is marginal at 1 psi 
(7000 N/m). On the other hand, at the lower temperature, between 900 
(755) to 1000°F (811°K), sodium is not an acceptable fluid because its 
vapor pressure is too low. Under the ground rule that each pump should be 
designed to be identical, sodium can be eliminated as a potential working 
fluid in this application. 


Table 5-4. Vapor Pressure of Alkali Metals in PSIA (N/m^) 


Temperature 
°F (°K) 

1200 

(922) 

1100 

(866) 

1000 

(811) 

900 

! 

(755) 

Sodium 

1.04 

(7170) 

0.449 (3096) 

0.173 

(1193) 

0.058 

(400) 

Potassium 

4.66 

(32129) 

2.36 

(16272) 

1.19 

(8205) 

0.451 

(3110) 

Cesium 

12.03 

(82943) 

6.67 

(45988) 

3.42 

(23580) 

1.59 

(10963) 


47 


The design program was used to determine which of the three fluids 
resulted in the lightest system. These calculations will be expanded upon 
in the following section, but the result is presented here so that all 
factors are available for selecting a fluid. It was found that, under all 
conditions, potassium resulted in the lowest weight system. The reason 
for this result is that sodium, due to its low vapor pressure, and cesium, 
due to its low capillary pressure rise, require large flow passages in the 
radiator to minimize the pressure drop. 

An added bonus with potassium is that the pressure difference across 
the condenser wall will be small since potassium is used in the power loop. 

It will, therefore, be easier to prevent distortion of the condenser wall 
and to maintain geometrical tolerances in the wide-wall separation. 

The conclusions are that (1) sodium is not an acceptable working 
fluid for this application because its vapor pressure at the lowest tempera- 
ture, about 950°F, (783°K) , is too low to support the flow: (2) therefore, 

potassium is the chosen working fluid. It ranked second in its pumping 
capacity and in its thermal conductance, and possessed sufficient vapor 
pressure to maintain flow even at the lowest temperature; (3) cesium's only 
strong point is its high vapor pressure but its poor transport properties 
make it inferior to potassium. The high vapor pressure relative to potassium 
would also result in thicker and heavier condenser wall. 

5.1.2 The Effect of Design Parameters Upon System Height 

The design program was used to determine the minimum weight capillary 
pumped system by varying each of the pump dimensional design parameters in 
turn, calculating the corresponding radiator weight and dimensions. The 
weight data were plotted and the minimum weight system determined out of 
core. 

The pump design parameters input to the program are: the wick area, 

the width of the gap between the screen wick and the heat transfer wall, 
the half distance between the feed arteries. The heat rejection system 
parameters are the number of loops and the working fluid. The number of 
capillary loops varied in multiples of four, that is, 4, 8, 12, 16, and 20. 
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SYSTEM WEIGHT - LBS/LOOP 


GAP WIDTH = .015 INCH 



FIGURE 5-1. VARIATION OF LOOP WEIGHT WITH GAP HALF WIDTH AND WICK AREA 



The first computer runs were made using approximated values for each 
combination of parameters. These approximated values were obtained by 
making engineering guesses at the reasonable heat transfer areas required 
to transfer the imposed heat load, while maintaining a reasonably small 
temperature drop between condensing potassium vapor and the pump working 
fluid. Then, further runs were made in which each of the pump design 
parameters were varied both higher and below this reasonable value. These 
calculated results were then plotted as system weight versus, for example, 
the element half-width with area as a parameter with a different plot for 
each gap width. 

Figure 5-1 is an example of the data obtained. This figure is for a 
gap width of 15 mils for four pump loops employing potassium as a working 
fluid. The calculations showed that the system weight is practically 
independent of the element half-width ,for values up to about 1 foot, and 
for gap widths greater than 15 mils. Since it is not practical to build a 
pump system with a gap smaller than 15 mils, the element half-width was 
eliminated as an important variable. 

The system weight becomes smaller with smaller gap widths. This trend 
is because the smaller the gap width results in a smaller temperature 
gradient and a higher working fluid temperature in the pump, and therefore, 
in the radiator. Radiator weight varies approximately as the inverse of the 
inlet temperature to the fourth power and is clearly the dominate weight in 
pumper system. The gap width should be the smallest which is reasonable to 
manufacture. Experience with heat pipe systems indicates that 15 mils is 
a reasonable lower limit. 

The calculated results showed that the overall system weight also depends 
upon the heat transfer area in the pump. There is, in fact, an area for 
which the system weight becomes a minimum. Figure 5-2 illustrates the 
system weight versus the capillary pump area for a gap width of 15 mils. 

The system has four capillary pump loops using potassium as a working fluid 
a 12 inch (.305 m) separation distance between feed arteries. This figure 
shows that a minimum loop weight of 624 pounds (283 Kg) occurs at a heat 
transfer area of 22 ft (2.04 m ). (The total system of four loops is 
2496 pounds (1132 Kg) and 88 ft* (8.18 m z . ) 


50 




Similar results were obtained when calculations were made for numbers 
of loops of 8, 12, 16, and 20, and using other working fluids of sodium 
and cesium. 

When the minimum weight systems for the various working fluids were 
compared at a constant system variable of loop numbers, it was found that 
for each of the numbers of loops, potassium resulted in the lowest overall 
system weight. This advantage with potassium was not overwhelming but was 
consistent. This can best be explained by noting the short-comings of the 
other two fluids; sodium and cesium. In the case of sodium, the vapor 
pressure at the maximum temperature of about 1200°F (922°K) is only about 
1 psi (7000 N/m^). Therefore, to maintain the pressure drops around the 
loops to be less than this 1 psi (7000 N/i/) (and they must be considerably 
less), the dimensions of all the piping, etc., must become very large. On 
the other hand, in using cesium the surface energy of cesium is half that 
of potassium and one obtains only about half a psi (3500 N/m 2 ) pressure 
increase across the same screen. In order to maintain the pressure drops 
around the loop less than 1/2 psi (3500 N/m 2 ) requires that all the loop 
piping be very large, and consequently, the weight is large. An alternative 
is to use finer mesh screen. However, 400 mesh was considered the m'nimum 
to be handled practically and this alternative was discarded. 

In summary, the capillary pump will employ a 400 mesh screen wick, 
spaced 15 mils from the hot wall. The wick will be fed potassium, the 
selected working fluid, from arteries spaced at about one foot (0.305 m), 
the exact spacing to be determined by the amount of area in each pump. 

5.1.3 Selection of the Number of Loops 

The selection of the number of capillary loops must be based upon the 
system weight, survivability requirements, control abi li ty, manufacturability, 
reliability, and practicality. The latter three or four items are very 
difficult to quantitize in this application because the capillary pumped 
systems are still in a conceptual stage. These considerations are also 
strongly related to the performance and control characteristics of the 
total ARCPS. Experience gained through construction, test, and operation 
would provide better judgements about these factors. In the meantime. 
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engineering experience with related systems has been used, qualitatively, 
to make judgments relative to these factors. 

The survival requirements of the system are that it has 75% of its 
heat rejection capacity at the end of its life, suggesting that the number 
of loops should be a multiple of four. Four loops allows one radiator 
penetration per lifetime, eight allows two, twelve allows three, etc. 

There is no advantage, for example, of nine, ten, or eleven loops at least 
from a weight standpoint, since all radiators must be armored for a total 
of only two penetrations. The use of these in-between numbers results in 
greater survival capability than required at the cost of system weight. 

The design program was used to make weight trade-off studies. This 
was done by calculating, for each number of loops considered, the optimum 
weight system assuming that each loop removed an equal share of the total 
heat; i.e., the total heat load divided by the number of loops. The 
importance of this assumption is that the system will actually be larger 
than calculated because the last loops in the series will not remove as 
much as the first. The redesign of the system using the support of the 
performance program has shown that the actual loop design is about 15% 
larger than calculated using the average heat rejection. However, using 
as the individual loop heat rejection provides a common basis for comparison 
to establish the optimum number of loops. 

Figure 5-3 shows a plot of the total heat rejection system weight as 
a function of the number of loops. These data show that a broad minimum 
exists between about twelve and twenty-four loops. However, the change 
in system weight from the maximum to the minimum (about 10% change) is very 
small, probably smaller than the calculation accuracy. It seems clear that 
the system weight is not a major factor in determining the number of heat 
rejection loops at least for the range considered. 


53 



TOTAL SYSTEM WEIGHT, LBS. 





I 


The frequency at which power adjustments must be made in the case of 
the failure of a loop must also be considered when choosing the optimum 
number of loops. The amount of heat to be rejected is divided into about 8 % 
sensible and 92% latent. Thus, with twelve loops, the latent heat is removed 
in the first eleven loops and the last loop provides the subcooling. With 
fewer loops, the last loop removes latent and sensible energy. Consequently 
the failure of a loop would result in vapor leaving the condenser. When 
the sensible heat is removed by one or more loops, a radiator loss does 
not require an immediate power adjustment. When the sensible heat is 
removed by many loops, say ten of a 120-loop system, a readjustment of the 
power may not be needed at each loop failure since the extra rejection capa- 
bility of all the loops may be enough to make up for the loss of a single 
loop. The only effect on the condensing potassium side will be a slight 
increase in the outlet temperature. In this sense then it is desirable to 
have a larger number of loops since it allows for use of a simple low 
response time control system. It is, in fact, possible to rely on operator 
or ground compensation of a loop rather than automatic control. Twenty-four 
loops would be approximately the minimum number to allow for a low response, 
possibly remote, control system. 

The radiator configuration selected has 120 parallel tubes which 
represents a practical upper limit from a packaging standpoint. Thus, 120 
loops would have a separate capillary pump for each tube in the radiator. 

About ten of these pumps would remove sensible heat; i.e., would subcool 
the potassium. 

The weight of a 120-loop system was estimated to be approximately 10% 
greater than the 24-loop case. However, this estimate does not include 
auxiliary equipment associated with each loop (sensors, controls, mounting 
hardware, etc.) whose total weight is roughly proportional to the number 
of loops. Consequently, the total system weight of a 120-loop case should 
be substantially more than the 24-loop case. One hundred twenty loops 
represents more fabrication problems and therefore potentially represents 
a less reliable system. However, this facet of the evaluation cannot be 
quantitized at this stage of the system development. 
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It should be noted that the selection of an acceptable number of pumper 
looos, since it does not severely impact the overall system weight, allows a 
broad choice and can be tailored to meet the geometry/packaging requirements 
of the particular system. This property is a very attractive attribute of 
capillary-pumped loops. 

Most of the emphasis in the performance studies were made using 12 and 
24-loop capillary pumped heat rejection systems. It is clear that this 
choice could not be completely validated by firm quantitative trade-offs 
and that other numbers (30, 60, 120) should not be discarded in future 
studies. 

5.1.4 Radiator Optimization and Design 

The radiator design program described in Appendix E was used to generate 
curves giving minimum weight radiators as a function of system operating 
conditions. These curves were then input to the design program to arrive 
at optimum weight systems. 

Parameters affecting radiator weight can be divided into two types; 
internal parameters, those which do not impact the remainder of the system, 
and external parameters, those which affect the operation of other systems 
components. These parameters are summarized below: 

Internal Parameters 

e Number of tubes 

• Tube diameter 

External Parameters 

e Two phase pressure drop 

c Fluid type 

e Number of loops 

• Inlet temperature 

• Amount of sub-cooling 

The optimization procedure was to vary the internal parameter values 
for each set of external parameters until a minimum weight radiator design 
was found. In all runs, the subcooling was fixed at 100°F (56°K). 
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An example of the initial radiator optimization runs is shown in Figure 
5-4. Primary purpose of these runs was to aid in determining the best 
fluid and to determine the sensitivity of radiator weight to the external 
parameters . 

The external parameters which influenced the radiator weights most 
significantly were the fluid type, the number of loops (allowable meteoroid 
penetrations) and the inlet temperature. The difference between using 
cesium and potassium is very small, but the use of sodium results in 
significantly heavier radiators. This is because the sodium radiator tubes 
are larger in order to reduce the pressure drop. 

The influence of allowable penetrations is determined by the tube 
armoring, the fewer penetrations, the heavier the armoring. The inlet 
temperature is important because the required heat transfer area is 
proportional to the fourth power of temperature. 

The two phase pressure drop was not influencial except at very small 
val ues. 

Curves of optimum raditor weights were used to make a series of 
parametric runs with the design program. The maps of optimum radiators 
for potassium given in Figures 5-5, 5-6, and 5-7 were then generated to 
further refine optimum system design and operating conditions. The final 
radiator design is given in Section 5.2. 

5.2 SYSTEM CONCEPTUAL DESIGN 

Preliminary designs of 12, 24, and 120 loop heat rejection systems 
were made. This section describes these results. 

The design calculations reported in Section 5.1 established several 
design parameters. These are the following: 

o Potassium is the working fluid. 

o The wick is one layer of 400 mesh screen. (For reliability it 
may be desirable to use at least two layers. This was not, 
however, implemented in this design study.) 

o The spacing between the condenser wall and the screen wick 
is 15 mils. 

o The spacing between feed arteries is approximately 12 inches 
(.305 m). 
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FIGURE 5-7. OPTIMUM POTASSIUM RADIATOR WEIGHTS 


In addition, the approximate minimum weight dimensions of the capillary 
pump and the radiator were determined using an average heat rejection 
requirement (total heat load/number of loops). Actually, the temperature 
of the condensing potassium stream decreases as it flows past each pump in 
the series, and therefore, each loop removes a different amount of heat. 

The individual loop must be designed to remove more than the average 
amount of heat in order to provide adequate total capability. 

The design program and the performance program were used in an itera- 
tive fashion to determine the actual pump and radiator size required to 
reject the total waste heat load. The iterative procedure was to use the 
design program to design an optimum loop which removed (1+n) times the 
average where n is a variable fraction. Then the series of loops so 
designed were evaluated by the performance program to determine if the 
system would remove the imposed heat load. If the total system removed too 
little heat, n was increased. If it removed too much heat, n was decreased. 

The dimensions of the capillary pump designed in this way are 
summarized in Table 5-5 for a 12-loop configuration. Figure 5-8 gives a 
scaled drawing of a pump which furnishes the necessary heat transfer area 
and which fits into the geometry of the truncated cone of Figure 2-3. 

The pump forms a hexagonal shape which "circles" the top of the truncated 
cone as shown by the top view of Figure 5-9. 

Table 5-5. Capillary Pump Dimensions 


Heat Transfer Area 

=: 

6.4 ft 2 ( 

0.595 m 2 ) 

Gap Width 

= 

0.015 inch 

(0.00038 m) 

Liquid Line ID 

=r 

0.77 inch 

(0.0196 m) 

Liquid Line Length 

= 

25 feet 

(7.62 m) 

Vapor Line ID 

s 

2.4 inch 

(0.061 m) 

Vapor Line Length 

= 

5 feet (1 

.521 m) 

Artery ID 

= 

0.65 inch 

(0.0165 m) 

Artery Length 

= 

30 inches 

(0.762 m) 

Vapor Space Dimensions 

; : 



Height 

= 

30 inches 

(0.762 m) 

Length 

= 

33 inches 

(0.838 m) 

Wi dth 

= 

0.8 inch 

(0.0203 m) 
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TOP VIEW 



2 - 1 / 2 " 


CONDENSER CHANNEL 



FIGURE 5-8. SCHEMATIC OF 12 LOOP CAPILLARY PUMP 
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The liquid feed arteries are hemi -cylinders of 0.65 inches (0.0165 m) 
in diameter. They were sized so that the combined liquid flow area of all 
the arteries would be the same as the liquid line from the radiator. The 
number of arteries was made to be equal to the smallest number that could 
be fitted into the pump with the restriction that no artery would be 
required to feed more screen than a strip one foot wide (0.305 m). 

The vapor tube connects to the pump at the center of the screen area. 
This way the vapor generated flows radially inward converging on the exit. 

The depth of the pump was determined so that the maximum velocity, at the 
circumference of the exit, was equal to the vapor velocity in the vapor 
line. 

The liquid line and the vapor line were sized so that the liquid 
velocity was about one foot per second (0.305 m/sec.) and so that the vapor 
Mach number equal about one-fourth. These velocities have been found to be 
realistic without excessive pressure losses (14). The lengths of these 
lines were estimated at effective lengths of 25 and 5 feet (7.62 and 1.52 m), 
respectively. The actual physical length will be smaller by 20 to 25%. 

The radiator which is coupled with this capillary pumped system is 
shown in Figure 5-10. It fits on the outer surface and extends down the 
length of the truncated cone 18.3 feet (5.58 m). The complete radiator 
has 120 parallel tubes of 1.15 inches I.D. (0.029 m). Thus, each capillary 
pump feeds vapor to ten of these tubes. The vapor enters the tubes through 
a common header at the top, and the condensate is collected at the bottom of 
the tubes, again, in a common header and transported back to the pump. 

The heat rejection systems employing 24 and 120 loops were not obtained 
using the iterative application of the design and performance programs as 
described above. Since the overall weight trade-offs indicated no 
significant effect of number of loops, these additional designs could be 
obtained simply by scaling down the capillary pump and the radiator 
proportionally to the number of loops. Thus, the screen area of a 24-loop 
capillary pump is 3.2 ft^ (0.297 m^) and for a 120 loop pump 0.64 ft^ 

O 

(0.0595 m ). The 24 loop system used five radiator tubes for each pump and 
the 120 loop system used just one tube per pump. 

Figures 5-11 and 5-12 show a top view of the 24 loop and the 120 loop 
systems, respectively, coupled to the radiator. 
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5.3 SYSTEM PERFORMANCE 


Performance calculations were made to determine the normal operating 
characteristics for a twelve and a twenty-four loop heat rejection system. 
Additional performance calculations were made to determine the system 
steady state response to a single or multiple radiator failure. The latter 
calculations were made only for the twelve loop system. However, the 
physical mechanism of the response of this system is consistent and the 
expected response of systems with a different number of loops can be 
projected from the twelve loop results. This section of the report describes 
the results of these performance calculations. 

5.3.1 Normal Operating Characteristics 

The normal operating characteristics of the heat rejection system are 
given as profiles of the relavent operating parameters through the system 
as heat is removed. The sensitivity of these system performance profiles 
to pertubations in the design conditions and system dimensional parameters 
are, in addition, important characteristics of the system. 

The profiles of the condenser temperature and pressure for a 12 loop 
system are shown in Figure 5-13. The corresponding pumper temperature and 
pressure profiles are shown in Figure 5-14. 

Figure 5-13 shows the condenser side temperature decreasing as the 
flow passes through the condenser channel. The program assumes that in 
the quality region the temperature is the saturation temperature at the 
corresponding fluid pressure. This neglects the temperature drop across 
the liquid film at the wall, however, this is likely to be small. Conse- 
quently, as the pressure drops, due to the two-phase friction, the corres- 
ponding temperature drops simultaneously. This temperature drop as noted 
below, proves to be a very important factor in the design of the system. 
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The condenser side pressure drop is composed of two components. There 
is a two-phase frictional component which always decreases in the direction 
of flow, and the second is a deceleration pressure rise brought about by 
the decreasing volumetric flow rate. The deceleration pressure rise is 
fairly constant throughout the channel since the rate of quality decrease is 
essentially linear. Near the entrance to the condenser channel, the 
frictional pressure drop is relatively high due to the high velocity of the 
stream. As the potassium stream passes each pumper, the quality decreases 
and therefore, the magnitude of the frictional pressure drop decreases. 

At approximately pump number eight the frictional pressure drop equals the 
deceleration pressure rise and the net pressure change is zero. For the 
following three pumps, the frictional pressure drops become smaller than the 
deceleration pressure rise and the total pressure increases slowly until 
the quality equals zero. Thereafter, the deceleration pressure change is 
zero and the frictional pressure drop becomes extremely small. 

The static pressure profile represents a potential stability problem. 

As the pressure drop approaches zero and begins to become positive, the 
stream tends to flow backwards creating large turbulent eddies. This 
enhances the flow void feedback character in the power conversion loop to 
produce flow oscillations. These stability problems are discussed in more 
detail later in this report. 

The use of a tapered condenser passage to give a continuously decreasing 
pressure was given consideration. However, the performance calculations 
showed that when a radiator failure occurred and a fraction of the heat 
was no longer removed, two-phase flow extends further down the tube into an 
area of smaller cross-section. The results of this are a very high 
pressure (and correspondi ng temperature) drop in the potassium and a 
reduction in the overall heat transfer rate from the system. This process 
degenerates the operation of the system. It is clear that tapering of the 
condenser tube would require a very close control system on the power 
conversion loop so, that simultaneously with a radiator loss, the power 
level can be decreased to maintain essentially the same pressure and 
temperature profile in the condenser. 
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The condenser side temperature profile was found to be one of the most 
influential parameters of the system. The optimum designed series heat 
rejection loop system was found to be able to remove more than required or 
far less than required, depending upon the shape of this profile. If the 
pressure drop in the condenser side became large, the temperature of the 
last pumper became too low for effective operation. The conclusion of 
these results is that the heat rejection system cannot be designed 
completely independent of the power conversion loop. These two loops must 
be designed simultaneously so that the pressure drop in the power 
conversion loop condenser is continuously decreasing, and simultaneously 
the temperature never becomes so low to allow effective pump operation. 

One further note. Had sodium been the working fluid, this problem 
would have been more severe. On the other hand, with cesium it would 
have been less severe. 

Figure 5-15 shows the quality profile through the condenser channel. 

The quality is very nearly linear with distance down the condenser tube 
and becomes equal to zero at the exit of the eleventh pump. 

5.3.2 Pe rformance with the Radiator Failure 

The heat rejection system has been designed to permit some meteoroid 
penetrations with subsequent loss in radiators during its life. It is 
essential, then, to assess the change in steady state operating characteris- 
tics following such a loss. 

The performance program was used to analyze this situation under two 
conditions. First, it was assumed that a radiator was lost but that no 
change in the condenser side heat load requirements was made. Then, a 
similar analysis was made in which the heat rejection requirements were 
decreased proportional to the fraction of the heat rejection capability 
lost. That is, when one radiator of a series of twelve is lost, the heat 
load is decreased to 11/12 of its normal value. 
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In general, the result of this analysis was fairly simple. As any one 
radiator failed, and the corresponding pump became inactive, the effective 
pump numbering shifted by one. As an example, should pump number one be 
lost, then entrance conditions to pump one shifted to pump two with pressure 
loss and temperature and quality increase due to friction. In this way 
pump number two was essentially shifted to position one with a small change 
in inlet conditions. 

The location of the pump lost makes some difference in the impact on 
the overall system. The further upstream this loss occurrs, the greater 
the influence. That is, in a twelve loop system the loss of pump number 
one had a more severe effect than the loss of pump number twelve. The 
explanation for this is simply that when pump number one is lost, the 
average operating temperature of the total system suffers a greater 
reduction than when the last is lost. As just stated in the previous 
paragraph, one loses essentially the same heat transfer capability as exists 
for that pump under normal operating conditions. 

Figures 5-16 and 5-17 show the temperature and quality profiles in the 
potassium condenser tube as a result of losing pump number one with no change 
in the heat rejection requirement. Figures 5-18 and 5-19 show the corres- 
ponding temperature profiles as a result of losing pump number twelve with 
no change in the heat rejection requirement. Comparison of the quality 
profiles show, as discussed above, that the loss of pump one is more severe 
(higher potassium vapor quality leaving the condenser) than the loss of 
pump twelve. 

Figures 5-20 and 5-21 show the temperature and quality profiles for a 
twelve loop system in which pump number one has been lost and the heat 
rejection requirement has been reduced to 11/12 of normal. These curves are 
to be compared with Figures 5-16 and 5-17. 

It should be noted that the loss of any loop in a twelve loop system 
would have to be recognized quickly since it could lead to cavitation vapor 
lock of the boiler feed pump in the ARCPS. From this standpoint a twenty- 
four (or more) loop case would be advantageous since response to a single 
radiator failure could be tolerated or corrected at a more liesurely pace. 
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FIGURE 5-17 QUALITY PROFILE WITH 
PUMP ONE LOST 
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FIGURE 5-19 QUALITY PROFILE WITH 
PUMP TWELVE LOST 
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FIGURE 5-21 QUALITY PROFILE WITH PUMP ONE LOST 

AND REDUCED HEAT REJECTION REQUIREMENT 
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The principal reason for this effort was to determine the control 
scheme necessary to keep the inlet to the pump from being in the saturation 
region. The conclusions are: 

o Twelve loops require immediate response and, therefore, 
automatic control system. 

o Twenty-four loops or more can rely on operator or remote 
control 

o At the point where a loss of two loops is acceptable, 
failure of one loop can be ignored and the operator can 
make corrections after two loops have failed. 
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6.0 SYSTEM OPERATIONAL PROBLEMS 


A number of problem areas have been identified which may exist in 
the operation of a capillary pumped heat rejection system. Throughout the 
design process, an attempt was made to identify a design which was not 
only light in weight and practical from a fabrication standpoint but also 
tended to minimize these operational problems. 

This section presents a discussion of potential problem areas indonti- 
fied. In general, rigorous solution of these problems is beyond the scope 
of the present study. Experimental work may be required to verify the 
potential solutions discussed here. 

6.1 CONDENSING RADIATOR 

Necessary to successful condensing radiator design is the ability 
to maintain a stable fluid flow subject to external or internal perturba- 
tions. Four flow instabilities pertinent to condensing radiators have 
been identified (Reference 13). These are interfacial instability, run- 
back instability, liquid leg instability and zero-g instability. 

(a) Interfacial Instability 

Interfacial instability is the inability of the fluid to form 
a stable meniscus which separates the condensing and subcooling portions 
of the radiator tube. The stability of the meniscus is dependent on 
surface tension energy and the kinetic and potential energy of a distur- 
bing wave. Interfacial stability can be maintained in the presence of 
external disturbances by selecting appropriate tube diameters. Using the 
criteria given in Reference 13, the radiator design of this study may 
experience interfacial instability for adverse accelerations exceeding 
0.04 g. This problem is inherent with capillary pumped systems because 
of the small available pumping head and the resultant large radiator 
tube. Stabilizing this interface could possibly be done with appropri- 
ately placed tube inserts. The design and placement of these provisions 
would require extensive experimental study and is outside the scone of 
this program. 
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(b) Runback Instability 

This type of instability is caused by low drag force exerted 
by the vapor flowing over the condensate. With an external body force, 
the vapor drag must be sufficient to accelerate the condensate to the 
outlet of the condenser. In zero-g operation, the condensate must be 
moved along the wall at a rate fast enough to prevent bridging of the 
tube. Using the criteria of Reference 13 applied to the last radiator 
segment, the present design could withstand an adverse acceleration of 
about 0.1 g. A possibility for increasing the vapor drag force is to taper 
the tube to keep the vapor velocity up as liquid is condensed. 

(c) Liquid Leg Instability 

This is caused by having a larger pressure gradient in the 
liquid film than in the vapor. External forces such as gravity can cause 
the static pressure in the liquid to be higher than the pressure in the 
vapor. The present design would withstand an adverse acceleration of 
approximately 0.04 g's before this condition would exist. 

(d) Zero-G Instability 

Zero-g instability is the emptying of liquid condensate into 
the vapor header due to a positive pressure gradient down the condensing 
tube. This condition is possible for short condensing length to diameter 
ratios when the two-phase frictional pressure drop is less than the 
momentum gain due to decelerating of the vapor flow when condensing. 

In this case, the interface static pressure would become larger than the 
inlet total pressure. The radiator design of this study has a static 
pressure drop of 0.12 psi (827 N/m ) in the condensing tube section and this 
instability cannot exist. 

The low pressure rise capabilities of a capillary pumper tend 
to make design of a stable radiator for any substantial gravity field 
difficult. Smaller tubes can be used in the radiator but only at a 
considerable weight penalty. Gravity forces along the tube length must 
be kept very low. This fact is likely to constrain the vehicle orienta- 
tion. Any spacecraft which spins to provide artificial gravity must be 
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oriented such that the gravity force is perpendicular to the radiator 
flow path. 

6.2 START-UP/SHUTDOWN 

Start-up and shutdown of liquid metal heat rejection loops which 
are solid at normal environmental temperatures require careful considera- 
tion for any pumping concept; in the case of the passive capillary pumped 
system, the problem is particularly acute. This section describes some 
of the difficulties encountered in trying to stop and start a capillary 
pumped heat rejection system designed for a space environment and suggests 
one concept for alleviating these difficulties. It should be noted that 
the performance of capillary pumped systems, particularly for non-nominal 
conditions, is not well understood and the resolution of the start-up/ 
shutdown operational problem must ultimately come through a careful 
experimental study where many of the unknowns and uncertainties can be 
simulated. 

Start this discussion assuming that the power system is operating 
at full capacity and with inlet condensing potassium at the nominal 1220°F 
(933°K) and 0.89 quality. As the shutdown procedure begins, assume that this 
flow rate and temperature drops but that the quality remains approximately 
constant. The overall temperature level of the heat rejection system will 
drop with a corresponding decrease in the heat rejection capability. 

It has been shown in Section 5 that a substantial drop in the potassium 
inlet temperature results in a decrease in the operating pressure in the 
last capillary pumps until there is no longer sufficient pressure level 
to support the loop aP. Those pumps will fail to operate at or below this 
limit. This event occurs at fairly high temperature (~900°F, 755°K) so there 
is not immediate danger of freezing of the working fluid (~150°F, 339°K for 
potassium) when the loop fails. 

Successful shutdown of the failed loop then requires a return of all 
the liquid to some convenient storage area. As a solution to this problem, 
it is proposed to include a coarse wick structure on the down-stream 
(vapor) side of the 400 mesh screen which provides the main capillary 
pressure rise. (See Figure 6-1.) During normal operation, the coarse 
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IDENTICAL PUMP ON THIS 
SIDE OF DUCT 



FIGURE 6-1. COARSE WICK STORAGE SCHEME 
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wick would be unable to sustain the capillary pressure head required and 
the liquid would recede back to the fine mesh and the course mesh would 
introduce little pressure drop in the system. In the static or isothermal 
condition, the coarse wick, having a pore size smaller than anything else 
in the loop (except the 400 mesh screen), will fill by emptying the liquid 
from the loop. How fast this will occur is very difficult to estimate. 
However, if the loop fails at 900°F (755° K), there will be a substantial 
time lag before there is dange of freezing. 

The liquid inventory for a twelve loop configuration is approximately 

3 3 

0.3 ft (.0085m ). With a porosity of 70%, the required thickness of the 
coarse wick would be approximately 3/4 in. (.019m). However, it must be 
assumed at start-up that the radiator can be as low as -100°F (200°K) 
and that return of liquid back to pump will not occur until this tempera- 
ture is increased to approximately 200°F (366°K). For a twelve loop case, 
this required 15000 Btu (15822000 Joules) of thermal energy to be supplied 
by condensing potassium vapor from the pump at 900°F (756° K). The coarse 
wick thickness must then be increased to 1.7 in. (.0432m) to provide for 
additional potassium storage required to heat the radiator up to a level 
which prevents freezing of the working fluid. No consideration was given 
to the process of introducing cold potassium into cold radiator tubes 
and the manner in which condensation/freezing occurs. This effect will 
obviously have a large influence on the applicability of this concept 
as well as on the design of the tubes. 

A major concern with the scheme proposed, or in fact any scheme, is 
that there must be an excess liquid inventory to start the system from a 
frozen state and that provisions to remove this liquid must be made for 
normal operating conditions. The gas controlled liquid reservoir (see 
Figure 6-2) is one procedure for storage of excess liquid during normal 
operation. At shutdown, the coarse wick would empty liquid from the 
reservoir as well as the rest of the loop. A stop is provided on the 
bellows to prevent complete collapse at the low pressure- frozen state. 
However, in normal operation, the accumulator would act to maintain 
constant system pressure and the reservoir would fill as the heat rejection 
loop approaches normal operating conditions. 
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CAPILLARY 




Another important characteristic of the coarse wick storage concept 
is that even in the frozen state, working fluid-must be maintained in the 
gap between the condenser wall and the 400 mesh screen. Otherwise, there 
is no way to input heat into the coarse wick at start-up. Also, since 
the potassium superheat is limited before nucleate boiling occurs (approx- 
imately 150°F (83°K) was assumed in this study) the heat input to the 
coarse wick system must be limited until the liquid interface recedes 
back to the 400 mesh screen. Potassium of the thicknesses noted can 
tolerate approximately 6000 watts/ft^ (6.4,500 watts/m^) at 150°F (83°K) 
temperature difference. 

Clearly the scheme presented to provide start-up and shutdown 
capability for capillary pumped heat rejection systems has many unknowns 
and uncertainties, most of which are very difficult to treat analytical ly. 


6.3 NON- CONDENSIBLE GAS 

The presence of non-condensible gases in the capillary pumped loop 
has the potential effect of causing the capillary surface to lose its 
pumping capacity. Preliminary experiments at TRW on capillary pumpers of 
the proposed configuration have shown that small amounts of gas at the 
screen surface can be tolerated but formation of large bubbles will 
eventually cause a collapse of the capillary head. It is relatively simple 
to prevent a limited amount of vapor/ gas from reaching the pump. One such 
method is shown in Figure 6-3. A screen trap in the liquid line prior to 
the pump will trap the gas provided the working fluid wets the screen. 
Making the trap much larger in cross-section prevents an increase in the 
liquid side pressure drop which in turn would have substantial impact on 
the overall systems' optimization. 
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FIGURE 6-3. SCHEMATIC OF NON-CONDENSABLE 
GAS BUBBLE TRAP 
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A preliminary calculation was made for a four-loop heat rejection 

system to determine the magnitude of condensible gases introduced in the 

fi 7 

filling operation. Assuming evacuation to 10 mm Hg and 1 part in 10' 
trapped argon in the potassium charge, a gas volume of approximately 12 cc 
per loop can be expected at normal operating conditions. This volume 
represents, for a cone angle of 90°, a base diameter of approximately 1.8 in. 
(4.5 cm). The required overall diameter of the gas trap would be on the 
order of 2.5 - 3.0 in. to prevent large liquid side pressure drops. Note 
that this calculation is for a four loop system; the required volume for 
the 12 or the 24 loop configuration would be correspondingly smaller. 

It is clear that continuous gas generation or diffusion of gas into 
the system cannot be dealt with by the trap shown in Figure 6-3. Should 
this condition represent a real situation, some positive means of gas 
venting is required (e.g., a non-wetting gas plug, a mechanical valve 
actuated by command or by a gas sensor). It seems apparent, however, 
that the only practical approach is to take action to prevent continuous 
gas buildup and to use the gas trap to deal with small amounts which 
cannot be avoided. 

6.4 OPERATION IN GRAVITY 

The capillary pumped heat rejection system described in Section 5 
will not operate as configured in a one-g environment. To enforce the 
requirement for one-g operation would severely constrain the power system 
geometry in the case of a capillary pumped system. The liquid head of the 
proposed design is approximately 5.4 psi (37232 N/m ) which is substantially 
beyond the maximum pumping capability of a 400 mesh screen wick. In fact, 
the height of the pump itself represents a pressure head of about 0.7 psi 
(4826 N/m^). Ground operation would require that the pump/condenser assembly 
be lowered to the level of the liquid level in the radiator and, further, 
that the pump be oriented with the heat transfer area horizontal. 

It should also be noted that ground operation of the radiator tubes 
as shown in Figure 5-10 provides a gravity drain of the condensate to 
the bottom of the tube. This condition would provide unrealistic perform- 
ance data for the radiator. For meaningful ground testing of the heat 
rejection, it will be necessary to orient the radiator surface as well as 
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the pump in a horizontal position with the pump slightly elevated relative 
to the radiator. 

It must be concluded that the capillary pumped heat rejection system 
imposes constraints on the ground testing of the unit. While other 
operational problems with this system may have total solutions, the ground 
testing difficulties can only be minimized by careful orientation of the 
capillary pumped loops relative to gravity and by a substantial amount of 
separate subsystem and element testing. 

In a one-g environment the liquid would not bridge a 1.1 inch tube- 

thus the liquid condensate will flow along the bottom of the tube. It 
is possible some of the radiator stability problems could be alleviated 
by using smaller tube diameters. 
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7.0 CONCLUSIONS 


Detailed conclusions pertaining to the specific design and to the 
performance trade-offs are presented in the appropriate sections. 

General conclusions which can be drawn from this study are the following: 

o The capillary pumped concept is a feasible approach for the heat 
rejection loops of the Advanced Rankine Cycle Power System. This 
approach appears to offer some weight advantages over the 
conventional EM-pumped system. 

o There are a number of system operational problems which constrain 
the application of capillary pumped units. These problems include 
start-up, shutdown, accumulation of non-condensible gases and 
sensitivity to gravity and other acceleration forces. However, 
these problems are not amenable to analytical treatment. 

o The reliability of the capillary pumped system, while potentially 
greater than the EM-pumped unit, cannot be evaluated at this 
time. Reliability depends on a resolution to systems operating 
problems. 

o The arterial fed screen wick capillary pump concept represents 
an attractive design approach for liquid metal systems. 
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APPENDIX A 


CONCEPTUAL DESIGN ANALYSIS 


This appendix presents the analytical details used in evaluating 
various capillary pump wick configurations. The results of these analyses 
are summarized as Section 3.0 of the report, together with an evaluation 
which leads to the choice of a single screen wick displaced from the heat 
source by a uniform spacing for application to the ARCPS heat rejection 
system. 

Section 1, Analysis of Stenger Type Cylindrical Capillary Pump, 
presents an analysis of the Stenger type wick configuration in which the 
heat is input to one side of a wick and liquid from the opposite side and 
the vapor is generated and carried away through cutouts in the wick between 
the hot wall and the wick material. Section 2, Analysis of Two-Dimensional 
Capillary Pump with Conventional Wick, gives an analysis of a flat 
conventional wick configuration in which heat is input on one surface, 
vapor generated on the opposite side and liquid is supplied through artery 
runners from the vapor side. Section 3, Analysis of a Two-Dimensional 
Screen Wick Capillary Pump, presents an analysis of a single screen wick 
separated from the hot surface by a uniform space configuration in which 
vapor is generated at the screen surface and liquid supplied by artery 
runners on the vapor side of the wick. Section 4, Analysis of a Three- 
Dimensional Screen Wick Capillary Pump, gives an analysis of the screen 
configuration just described with liquid feed by arteries running both 
horizontal and vertical directions to form a square liquid feed matrix. 



1 . ANALYSIS OF STENGER TYPE CYLINDRICAL CAPILLARY PUMP 


1.1 INTRODUCTION 

This section presents an analysis of a cylindrical capillary pump of 
the type used in the experimental study of Stenger (Reference 1). A 
schematic of this pump is presented in Figure A-l . 


1.2 HEAT TRANSFER AREA 


The conduction path for this pump is primarily through fins of length 
(r y - r 2 ). Let 

a = (minimum fin cross-sectional area)/2irr 2 L 
B = (conduction path length)/(r v - r 2 ) 


Then 


Q ’ wfh:) < 2 -V-) ■ \<-2N 


v 2' 

The symbols are defined in the nomenclature list, 
be written 

m„ 

, X, ' 

o 

and since m r (r)=m r (r 2 ) , equations (A.l) and (A. 2) 


1 - r 1 ' 

\ = P a V(r)yLrd6 = P £ V(r)(27trL) 


^ - 8P(r; k - T r 2 )K f9 0 


(A.l) 

The mass flow rate can 
(A. 2) 

can be combined to give 

(A.3) 


Darcy's law for this case is 


dP/dr = u V /K 

zap 

Substituting equation (A.3) and integrating from r-j to r 2 gives the 
pressure loss across the wick 

/ nx ap Ji k Tr 2 lo 9( r 2/ r l) 

A W = 6K p P(r v - r 2 )h fg 

This result can be combined with equation (A. 2) to give 
2-LPK (API 


(A. 4) 


m„ = 


'w 


1 Vog(r 2 /r-|) 


(A. 5) 
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FIGURE A-l. SCHEMATIC 





From equation (A.l), the heat flow rate is inversely proportional to the 
vapor space dimension (r y - r 2 ). The minimum allowable value of (r y - r 2 ) 
depends on the maximum allowable vapor flow velocity, and it is found 
(see Section 1.3) that this velocity is limited by the pressure head 
available to drive the vapor out of the pump. For the moment, it is 
assumed that the maximum allowable vapor flow velocity, U max . is known. 
Then if the fin surfaces lie on radii of the pump cross section, 

"V = PVD max (1 - a)ir(r v 2 " r 2 2) (A * 6) 


Since m = m , equations (A. 5) and (A. 6) can be combined to give 
v 


r 2 + 


2LPyAP) w R v T v 


(A. 7) 


V Z P v U max^ 1 ' a ^og(r 2 /'" 1 ) 

The vapor density has been replaced by P V /R V T V ; i.e., the vapor is assumed 
to be a perfect gas. Now equations (A. 4) and (A. 7) can be combined to 
give 

« I n i.n t I 1 o i 

(A. 8) 


2 2 

r v " r 2 


2akR\/T v 


r 2 LaT 






This equation is cubic in r y . However, (r y - r 2 ) will be substantially 
smaller than r 2 in most practical cases. Then r 2 + r y « 2r 2 and equation 
(A. 8) simplifies to 


r r _ f akRy Tu lAl l WZ 

v 2 ) (1- ) P U h- ( 

\ K ' v max fg) 


(A. 9) 


Finally, the total heat transfer area for N pumps is 27 rr 2 LN, and from 
equations (A.l) and (A. 9) 


A 


0 j ^RyTyL. \ 1/2 

l“0-a)P v U max h fg kAT^ 


(A. 10) 


As expected, the area is minimized by maximizing the fin thermal conductivity 
and the vapor flow velocity. The pump is like the thin-screen pump 
(Section 3) in that A ^ 5 U ^ i n this case the 0^ dependence arises 

from friction in the vapor flow rather than friction in the liquid flow. 

Note also that A does not depend on the wick properties provided that the 
wick conductivity and the conductivity of the working fluid are not much 
different than the fin conductivity. Of course the wick must be able to 
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supply the required mass flow rate. For the designs considered here (see 
Section 1.5) the pressure loss in the wick is a small fraction of the total 
pump pressure loss. 

1.3 MAXIMUM VAPOR VELOCITY 

The total pump pressure head (capillary pressure) is 
2ucos 0/r c 

o 

For the smallest value of r (.12 x 10 ft.) for the wick materials in 
Table 10 of Reference 3, the total capillary head in Potassium at 1200°F 
is 84 psf. The radiator loss is assumed to be 72 psf, hence the pump loss 
must be less than 12 psf. 

For the designs considered here, the total pressure loss in the liquid 
flow within the pump is negligible (see Section 1.5). Consequently, the 
available head can be used to size the vapor flow space. 

The vapor space consists of a rectangular channel, one of whose walls 
is injecting fluid into the flow. This flow is rather complex, however, 
the results given in Reference 3 (for laminar, incompressible pipe flow 
with injection* through a porous wall) are probably adequate for this 
analysis. The pressure gradient is given by 


dP v g 2 

d r = ■ ~^r 0+3/4 Re r - 27 ^ Re r + •••) R e r «1 (A.H) 


dp v _ it 2 p Jr dU v 
d r = ~ v p v u v sr 


Re r ■* “ 


(A. 12) 


wnere. R er = P y r V v /y y (A. 13) 

The result for small Rg r is the same as for Poiseuille flow except for 
the power series in R e r - For large R 6r , the pressure drop results 
primarily from the acceleration of the flow. 


♦Injection from all portions of the wall surface. 
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The vapor space is expected to be approximately square, hence 
(r - is approximately equal to the hydraulic diameter of the channel. 
From continuity, p v V v = p V" £ . Then, equations (A. 3) and A. 13) can be 
combined to give 

R fir = akAT/gy v hfg (A. 14) 

For a = .5, 6 = 1.5, and Potassium at 1200°F as the working fluid, the 
smallest and largest values of R er of interest here are, respectively 

Re r = .21 AT = 5°F, k = 10 (stainless steel) 

R er * 15 AT = 50° F, k = 71 (tungsten) 


The quantity R ef , is not clearly much greater than or much less than unity. 

In any case, and lacking better information, the equation giving the largest 
pressure gradient is used here. Moreover, the correction to the Poiseuille 
pressure gradient will be neglected, because this makes the analysis much 
simpler and because it represents a small correction in the range where it 
is presumably valid. Note that this procedure is unconservative; i.e., 
one of the two contributions (viscous or momentum) to the pressure drop 
is neglected. 

If the evaporation is uniform 


and the pressure difference in the vapor (along a path from Z=0 to Z=L) 
is given by 


UPL= 


16 *v u max L 
V < r v - r 2> 2 


Re r + 0 




o P U 

tt^ v max 



oo 


The consequences of these results for Potassium at 1200°F and (AP) y -12 psf 
are 
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Umax * 2 x 10 6 (r v - r^/L ft/sec R er + 0 
“mx - 2 “t> f ‘/“ c R e r - - 


These results are identical for 
10~ 2 ft. (^1/8") and L = 1 foot, 
in the axial direction is 


Re v = 14.6 


(r v - r 2 ) 2 /L = 10' 4 ft.; e.g., r y - r 2 = 
The Reynolds number of the vapor flow 


based on U! = 200 ft. /sec. and (r - r,) = IQ -2 ft. 

IlldX V C a 

relations are appropriate. For (r - r 2 ) 2 /L < 10 -4 ft 
becomes 


r 


v 


2 _ 



2akR v T v 

ll-a)8P v f 0 h fg 


r 2 L 2 AT 
( r v " r 2^ 


Hence, laminar flow 
, equation (A. 8) 

(A . 8a ) 


where: f = 2 x 10 6 1/sec 


Again making the assumption 


r 2 + r y = 2r 2 

equations (A. 9) and (A. 10) become 


(r v - f 2 ) 


( °k R v T v L 2 AT |1 
| (l-«)6P v f 0 h fg j 

I 6 3r v T v L2 | 

A = Q j« d d-) R V f 0 fg(W{ 


1/4 


(A. 9a) 


(A. 10a) 


Vapor space thickness, (r y - r 2 ), is presented in Figure A-2 versus L and 
AT for Potassium at 1200°F as the working fluid, a = .5, g = 1.5, and for 
two fin materials: Stainless Steel and Tungsten. Total heat transfer area 

for Q = 5.24 x 10 6 BTU/hr. is presented in Figures A- 3 and A-4 for Stainless 
Steel and Tungsten fins, respectively. Note that (r. - r 2 ) 2 /L < 10~ 4 ft. 
for all the temperature differences plotted if the fins are Stainless Steel. 
Thus, equations (A. 9a) and (A.lOa) were used. For Tungsten fins, (r - r 2 ) 2 / 
L > 10~ 4 ft. for aT ~ 1 1 °F, hence, equations (A. 9) and (10), with if v = 

200 ft. sec., were used for the four higher temperature differences. 
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Working Fluid: Potassium at 1200°F 

Vapor Pressure Loss in Pump: 12 psf 

a = .5 , $ = 1.5 
Stainless Steel Fins 


(k = 10 BTU/hr ft °R) 

Tungsten Fins 

(k = 71 BTU/hr ft °R) 





1 „ J I I 

.2 .4 .6 .8 

L, FEET 

FIGURE A-2. CAPILLARY PUMP VAPOR SPACE THICKNESS VERSUS 
L FOR VARIOUS TEMPERATURE DIFFERENCES 



Total Heat Transfer Area, ft 







Working Fluid: Potassium at 1200°F 

Vapor Pressure Loss in Pump: 12 psf 

oi * 5 ) 0 1 .5 

Tungsten Fins (k = 71 BTU/hr ft °R) 

Q = 5.24 x 10 6 BTU/hr 


DO r~ 


30 L 


)0 


)0 


0 


0 


_L 

.2 


.4 


_L 

.6 


.8 



L, FEET 


FIGURE A-4. CAPILLARY PUMP HEAT TRANSFER AREA VERSUS L FOR 
VARIOUS TEMPERATURE DIFFERENCES (TUNGSTEN FINS) 



1.4 MAXIMUM INTERNAL DIAMETER OF WICK; NUMBER OF PUMPS 

It is desirable that the liquid flow within the wick feed tube be in 
the form of a slug which fills the tube cross-section rather than a pool. 
This implies that the capillary pressure head in the liquid supply duct be 
greater than the difference in hydrostatic pressure across the duct. 

Then P£gd 1 < 4ocos0/d 1 (A. 15) 

For operation on earth with Potassium at 1200°F as the working fluid, 
equation (A. 15) implies that 

d-j < .0209 ft. 

This requirement results in a large number of pumps being necessary to 
obtain the required heat transfer area. The number of pumps required is 

N = d^r 

Consider r 2 = d-j = .02 ft. (r 2 /r^=2). Then for the smallest value of 
A/L in Figure A-4 (94.7 ft. at L = 1 ft., AT = 50°F) 

N = 755 

One is led to consider an annular liquid space. However, if r 2 is large 
enough so that N is reasonable, the pump wick is locally flat, and the pump 
is like the thin screen pump except that the wick is thicker and the heat 
is supplied from the vapor side. 

1.5 LIQUID FLOW PRESSURE LOSSES 

In this subsection, it is confirmed that the pressure loss in the 
liquid flow within the pump is negligible. The total mass flow rate is 



The largest liquid flow rate in an individual pump corresponds to the case 
with the smallest number of pumps (755 from Section 1.4), viz., 

2.42 x 10~3 Ibm/sec. 
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The mean flow velocity at the entrance to the pump is .167 ft/sec (for = 

0.02 ft) and the corresponding pressure gradient in Poiseuille flow is 

.0411 lbf/ft 3 . 


The largest pressure loss in the wick occurs for the smallest area 
rather than the smallest A/L. If equation (A. 5) is multiplied by N , m-j- 
replaced by Q/hfg, and use made of equation (A.16), there is obtained 


(AP) W - 


y A r 2 1 °9( r 2 /r l M 




o 

For the smallest area from Figure A-4 (21.2 ft ), r 2 = .02 ft., f 2 ^ r l = 2 » 
and Kp = .0472 x 10 -3 ft 2 (for HI Nickel felt from Table 10 of Reference 3) 

(AP) = .168 lbf/ft 2 

Finally, we can evaluate the error due to replacing (r y + r^) in equation 
(A. 8) by 2r 2> The largest error occurs for aT = 50°F, L = 1 ft, and with 
Tungsten fins. If r 2 = .02 ft., the error in (r y - r 2 ) and A is about 20 
percent. For the Stainless Steel fins, the largest error is about 5 
percent. This error is conservative; i.e., the correct area is smaller. 
However, the neglect of one of the contributions to the vapor pressure 
gradient is unconservative, and the results in Figures A-3 and A-4 are 
expected to be somewhat unconservative. 
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2. ANALYSIS OF A TWO-DIMENSIONAL CAPILLARY PUMP 
WITH CONVENTIONAL WICK 


The case of a thick wick which fills the space between heat source and 
vapor is considered in this section. Figure A-5 presents a schematic of a 
capillary pump cell of this type. 


The fluid motion is described by the continuity equation 
dV_ 


dz 


z _ kAT 


Ph2 hf c 


(A. 17) 


and Darcy's law 


dP . 
3T ‘ 


_JL \T 
k P z 


(A. 18) 


Integrating equation (A. 17) subject to the boundary condition that V = 0 
at z = 0 and substituting in equation (A. 18) yields 


dP ykAT z 

dZ PK n h2 K 
P fg 

Then the pressure difference between z = 0 and z = L is given by 

2 


(A. 19) 


AP = 


pkATL 


2PK h h. 

P fg 


(A. 20) 


The total heat flow rate through an element of length L and width W is 
given by . 

q = MTWL_ (A. 21 ) 


From equations (A. 20) and (A.21), the pump area required to transfer a 
given heat flow rate is 


A 


QL 


! 


2pkATK p APh fg 


1 1/2 


(A. 22) 
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HEADERS (LIQUID SUPPLY) 


VAPOR OUT 



FIGURE A-5. SCHEMATIC OF CAPILLARY PUMP CELL 
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It is assumed for the purpose of this analysis that the pressure loss 

p 

in the condenser is 1/2 psi (72 lbf/ft ). The pressure head required to 
drive the vapor through the evaporator is negligible, then we also have 



AP 

= 2 ^ pS 0 - 72 lbf/ ft' 

where: 

r c 

= effective pore radius 


© 

= wetting angle 


a 

= surface tension 


(A. 23) 


2 

It is obviously necessary that the capillary head be greater than 72 lbf/ft . 
For potassium at 1200°F (a = 50.4 x 10" 4 lbf/ft) wetting most metals 
(e « 0), this implies that 

r < .14 x 10~ 3 ft. (A. 24) 

u 


It is also desirable that the product ^aP be as large as possible. 
This results in a minimum thickness, h, from equation (A. 20), for given 
AT, L, and liquid properties, and a minimum area, from equation (A. 22), 
required for a given heat flow rate. Of three materials which satisfy 
equation (A. 24) 

400 mesh screen 

HI and H3 nickel felt (Reference 2, Table 10) 
the maximum value of KpAP is 

(12 psf ) ( .0472 x I0' 8 ft 2 ) = .566 x 10" 8 lbf 
for HI nickel felt. 


For this wick material and for Potassium at 1200°F as the working 
fluid. Figure A-6 presents h versus L and aT. Figure A-7 presents L and 
AT for the further specification that Q = 5.24 x 10~ 8 BTU/hr. 
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Wick Thickness, h (feet) 





Total Pump Area, ft 










3. ANALYSIS OF TWO-DIMENSIONAL CONSTANT-GAP 
CAPILLARY HEAT PUMP 


The following section analyzes the use of a single screen wick which 
is held at a uniform distance from the heat source. The screen is fed by 
liquid flow through this gap from line sources on two opposite edges. 



where: V is an average velocity defined by V = total mass flow/ flow area. 

The conduction length includes the screen thickness, h $ . Thus, 

q 2 = q 4 = k (hflh s ) = k ^ 


The total rate of heat transport in the vertical direction is 

, aT / Vmu.mtwJ p. K-1 

k p- Wdz = m 4 h f g ' r r 

Then from (A. 25) and (A. 26) 

dV , , T 

z _ - . k aT 

dz Ph f h t hf g 


(A. 26) 


(A. 27) 
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(A. 28) 


At z=Q, V=0 (see Figure A-8), then 

n- _ k ATz 
z ‘ Ph f h t h fg 

There is a small velocity component in the y-di recti on. Since 
m = PVA 

we have from (A. 26) that 

V - is aT 

y " pfirs 

This is smaller than V z by the ratio h^/L. 

The velocity is related to the pressure gradient by the z-momentum equation 

+ 3 2 V z 


0 = 2L y T- 

3 z M a z y 


(A. 29) 


It is assumed that the convective terms 
3 V 3 V 

p(v — - + V — — 

z 3 z v y 3y 

are negligible. This will be considered again. The boundary conditions 
for equation (A. 29) are 

V z = 0 for y = h f /L 


and the solution is: 




V = 1 3_P_ ( 2_ f ) 
z 2 u az ^ 


In terms of an average velocity, 

¥ = total mass flow/flow area 


the solution is: 

IT = 

dz 


12pV 

u 2 


(A. 30) 
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VAPOR OUT 


LIQUID IN 



FIGURE A-8. SCHEMATIC OF CAPILLARY HEAT PUMP 
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Combining equations (A. 28) and (A. 30) yields 



& 

dz 

_ 12yk AT z 

- Ph f sp t. fg 




L 


then 

AP 

_ 12uk AT _ 6ukL 2 aT 

Phf hf' * hf g J h f h f 3 h fg 

0 


and 

h t 

6ukL 2 AT 

P’V h fg AP 

(A. 31) 

For negligible 

screen thickness 



h t = 

h f = h 


and 

h = 

i 6ykATL 2 ( 1/4 

(A. 32) 

Now 

dQ 

= qwdz = k yp wdz 


and 

Q = 

dQ kATwL 

3? dz -ST 


since 

Q(Q) 

= 0. This can be rewritten 



Q = 

kATWL h 

h HT 

(A. 33) 


From equations (A. 31) and (A. 32), 



(A. 34) 


(A. 35) 
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Defining 

Qo 

lim Q = 
h f - h h 

then 

_a = 

hf 3 

(-R-) 


(A. 36) 


Alternatively, if q is fixed and the required area (WL) is sought, we 
def i ne 

A o ■ ' 1raA „ -15? 
h f -v h 

and from equation (A. 35) 



Equations (A. 34) and (A. 37) can be used to calculate the effect of any 
given screen height, h s , on the required area and flow thickness. Figure 
A-9 presents h f and A/A y versus h for h g = 4 mils. Figures A-10 and A-ll 
present h^ and A * WL, respectively, versus L and aT for Potassium at 
12Q0°F as the working fluid, aP = 81.2 lbf/ft 2 , h $ = 4 mils, and 
Q = 5.24 x 10 6 Btu/hr . 


This analysis is valid only if the convective terms in the z-momentum 
equation are negligible and if the flow is laminar. Both of these conditions 
fail if the velocity is high enough. From equation (A. 28) the maximum 
velocity (at z=L) is given by 


V Z (L) 


kATL 

Ph f h t h fg 


For simplicity, consider h^ - h^ = h. 


V 2 (L) = 


kATAP \ 1/2 
6yT hf c 


Then, using equation (A. 32), 


(A. 38) 
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4 

h x 10 feet 


FIGURE A-9. CAPILLARY PUMP GAP THICKNESS, hf, AND RATIO OF 

REQUIRED AREA FOR h s = 4 mils TO REQUIRED AREA FOR 
h s = 0, A/A 0 , VERSUS h (Gap Thickness for h s = 0) 



WORKING FLUID: Potassium at 1200°F 

Pump Pressure Head =81.2 lbf/ft^ 
Screen Thickness = 4 mils 
Two-Dimensional Analysis 
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t- 

O 


^ 6 


Ao o o o o o o 
T 





Total Pump Area, ft 




Thus, for a given working fluid, a maximum velocity implies a maximum value 
of aPaT. 

The transition, Reynolds number for pipe flow, is 2000. For a thickness 
h = 10 -3 ft. and for Potassium at 1200°F (P = 46.15 lbc/ft 3 , y = .357 Ibm/hr. ft). 

R e - ^ < 2000 -*• V< 4.3 ft/sec 

Then, from equation (a. 38) 

aPaT < 2320 

ft 2 

or for aP = 81.2 lbf/ft 2 
AT < 29° F 


It also turns out for this case that convection terms are not negligible. 
For a length L, of 1 ft., and V2 (L ) = 4.3 ft/sec 

p 1/ AV 

PV z = 26.6 lbf/ft 2 

and this is not small compared with 81.2 lbf/ft 2 . The other convective 
term has the same order of magnitude. 

The equations which describe the two-dimensional heat pump are 
summarized as follows: 



h 4 = h f 3 (h f + h $ ) 

n . kATWL 
% ' h 
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The result when the screen thickness, h , is neglected is given by Q . 

5 W 

Figure A-9 presents h f and A/A Q for a 4 mil screen thickness. The quantity 
A/A q is the ratio of required area for a finite h g to the required area for 
h $ = 0 when Q is fixed. Figures A-10 and A-ll present h f and A = WL, 
respectively versus L and T for the following heat pump specifications: 

Working fluid': Potassium at 1200°F 

AP = 81.2 lbf/ft 2 
h g = 4 mils 

Q = 5.24 x 10 6 BTU/lbm 

The analysis is valid only if the convective terms in the z-momentum 
equation are negligible and if the flow is laminar. Both of these conditions 
fail if the velocity is high enough. It has been shown that these reauire- 
ments limit the operating temperature difference to aT< 30°F for a pump with 
Potassium at 1200°F as the working fluid, with a pressure head of 8.12 psf, 

_3 

and with a gap thickness of 10 feet. 



4. ANALYSIS OF A THREE-DIMENSIONAL 
CAPILLARY HEAT PUMP 


Section 3 presents an analysis of a two-dimensional heat pump for 
which the only nonzero velocity component is in the z-di recti on. For 
velocities in both the x- and z-di recti ons (see Figure A-12), the continuity 
and momentum equations generalize to 


v-v = 


vp = 


kAT 

p (h f +h $ )h f hf g 



(A. 39) 
(A. 40) 


Convection terms are neglected in the momentum equation and gradients of 
velocity in the x- and z-di recti ons are assumed small compared with the 
velocity gradient in the y-di recti on. As discussed in Section 3 , the 
first assumption may not be good if aT is high enough. The second 

_3 

assumption is very good since velocity changes over a distance Ay ~10 ft. 
are comparable with changes in the x- and y-di recti ons over a distance on 
the order of one foot. 


The solution of (A. 40) is: 


vP 



(A. 41 ) 


for boundary conditions V = 0 at y = h^/2. Taking the divergence of 
equation (A. 41) and using equation (A. 39), we obtain 


v2p = — 12jjkaTL (A. 42) 

'h f 3(h f+ h s ) * fg 

The solution of equation (A. 42) for a rectangle of sides 2a and 2b with 
uniform pressure on the boundary Is given on p. 171 of Reference 2. For 
a square of side 2L, the total pressure drop from edge to center is 


aP 


6pkATL 2 

P V W h fg 


(A. 43) 
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VAPOR OUT 

t 1 I L I 

o o 0 0^0 

\ h f 

\ / / / / / 71 

I 1 I 

HEAT IN 


FIGURE A- 12. SCHEMATIC OF SQUARE CAPILLARY 
HEAT PUMP ELEMENT 





This is exactly the same result as is obtained for the two-dimensional heat 
pump (see Section 3 .) except for the constant 1.41. From equation (A. 43) 


Defining 

where 


"f S <W - S p-h 6 f " ka ? L 


L 



dQ 


o 

= qLdz 


kAT 


Ldz 


we obtain Q 


kATL 2 

hf+h 


(A. 44) 


(A. 45) 


For h g = 0 

h f ~ ^/~1MP~ 

from equation (A. 44). Thus, the total heat flow rate per unit area is 
greater for the square element than for the two-dimensional element by 
the factor 

^1.41 = 1 .09 

The quantity h $ appears in the two-dimensional analysis of Section 3 
in the same way, and the results for gap thickness and total area In 
Section 3 • can be used for the square heat pump if appropriately modified. 
From Figure A-9, it is seen that 

h^ versus h = ^ j h^ 3 (h f + h g ) 

is very nearly linear for all values of h f . Thus, h f for the square pump 
will be close to nine percent greater. From equation (A. 45) 

A ~(h f +h s ) 

and the ratio of square pump area to the 2 dimensional pump area is 

h f +h s 
1 .09h^+h $ 

Thus, the decrease is substantially less than nine percent for reasonable 
values of h $ . 
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NOMENCLATURE 


Symbols 

A 

= 

area 

d 

= 

di ameter 

f o 

= 

2 x 10 6 1/sec 

g 

= 

acceleration due to gravity 

h 


wick thickness 

h f 

= 

gap thickness between condenser and bottom of screen 

hf g 

= 

heat of vaporization- 

* s 

= 

screen thickness 

*P 

= 

wick permeability 

k 

= 

thermal conductivity 

L 

= 

length 

m 

= 

mass flow rate 

N 

= 

number of pumps 

P 

= 

pressure 

AP 

= 

pressure difference 

Q 

= 

heat flow rate 

Qo 

= 

total heat flow rate for h $ = 0 

R 

= 

gas constant 

Re 

= 

Reynold's number 

r 

= 

radius 

r c 

= 

effective pore radius 

T 

= 

temperature 

AT 

= 

temperature difference between exterior of cylinder 
and vapor 

u,v, 


average velocity (volume flow rate per unit area) in 
axial direction, radial direction 

w 

= 

width 

a 

= 

(minimum fin cross-sectional areaJ/ZTrrgL 

(3 

= 

(conduction path length)/(r v - r 2 ) 

e 

= 

wetting angle, azimuth in cylindrical, coordinates 

p 

= 

viscosity coefficient 

p 

= 

density 

cr 

= 

surface tension 

Subscripts 

£ 

= 

liquid 

V 

= 

vapor 

w 

= 

wick 
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APPENDIX B 


PHYSICAL AND THERMODYNAMIC PROPERTY EQUATIONS 


The physical and thermodynamic properties for the three potential 
working fluids (sodium, potassium, and cesium) were obtained in equation 
form from References i through 7. The specific property data required 
for the study was : 

0 Vapor pressure - temperature 
0 Enthalpy of saturated liquid and vapor 
0 Heat of vaporization 
0 Density of saturated liquid 
0 Equation of state for vapor 
0 Viscosity of liquid and vapor 
0 Specific heat of liquid 
0 Surface tension of liquid 
0 Thermal conductivity of liquid. 

The equations used for calculating these properties are given in 
this Appendix. 

Subroutines were written for the fluid properties, so that they were 
calculated in the program as a function of fluid and local temperature. 
The conversion coefficients were included in the individual subroutines, 
as required, so that the properties given by the program are in the 
Engineering system of units. 

The physical constants for the three fluids are given in Table 1 . 
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Table 1. Physical Constants of Fluids 


Sodium Potassium Cesium 


Engr. 

Units 

cgs 

Units 

Engr. 

Units 

cgs 
Uni ts 

Engr. 

Units 

cgs 

Units 

Atomic Weight 22.991 


39.100 


132.91 


Melting Temperature °F,°C 208.15 

97.86 

145.8 

63.2 

83.5 

28.6 

Liquid density at the , ,- 7 7H 

Melting Temp. lb/ft ,gm/cnr 

0.9255 

51.38 

0.8230 

114.74 

1.838 

Heat of Fusion, Btu/lb, 48.67 

cal/gm 

Normal Boiling Temp.°F,°C 1620.1 

27.04 

882.3 

25.74 

1400.0 

14.30 

760.0 

7.043 

1236.6 

3.913 

669.2 

Heat of Vaporization at 

the Normal Boiling Temp. 1676.7 

Btu/lb, cal/gm 

931.48 

801 .63 

445 . 35 

212.65 

118.14 

Critical Temperature °F,°C 4172 

2300+60 

3452 

1 900+50 

3092 

1700+10 

Critical Pressure, psia 4953 

337+40 

2425 

165+20 

1940 

132+8 

Critcal ^Density, lb/ft 3 , 0.371 
gm/cnr 

0.206+ 

0.016 

0.364 

0.202+ 

0.015 

0.781 

0.434+ 

0.005 


1.1 PROPERTY EQUATIONS FOR SODIUM 

o Vapor Pressure of Saturated Liquid 

log P (atin) = 3.84235 - SlSfjZ. + 0.20171 log T(°K) 

o Enthalpy of Saturated Liquid 

h J ,(cal/gm)=16. 151+0. 33994t(°C)-3.8984xlO“ 5 t 2 (°C)+1 .4834xl0 _8 t 3 (°C) 
The reference temperature for this equation is 25°C. 

o Heat of Vaporization 

T t/'°i^"1 0 - 3647 
h f9 (cal/gm) = 1 1 57. 65 ll - IUU.J 

o De nsity of Saturated Liquid 

p .(gm/cm 3 ) = 0.206+1 .01 7xl0 _2 (2300-t) 1/2 + 1.1 x 10 _4 (2300-t) 
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o Equation of State for Sodium Vapor 


RT= ,+ 7 + ! T + ^ (T= ° K) 


B . C 


log B = -2.3013 + — + log T (anP/inol) 


B< 0 
6021.7 


log C = 2.9771 + ^ 


log D = 5.2956 + 


C>0 
7521.7 


3 l n \ 2 


( cm°/mol) 


(cm 3 /mol ) 3 


D <0 


o Viscosity of the Liquid 

log m (mp) = 1.31558 + 234 — - -0.42966 log T(°K) 

T(°K) 

o Viscosity of the Vapor 

y(f^r) = 0.0275 + 0.175(10" 4 )T(°F) 


o Specific Heat of the Liquid 

C p (cal/gm°C) = 0.33994-7.7968 x 10“ 5 t(°C) + 4.4502 x 10" 8 t 2 (°C) 

o Specific Heat of the Vapor 

C p (Btu/lb°R) = 0.21598 + 6.053exp(-37280/T) (°R) 

o Surface Tension 

= 202 - 14 “ 0.0986 T(°C) 


o Thermal Conductivity of the Liquid Sodium 
k(|— J^-op) = 47.97 - 0.01035T(°F) 
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1.2 PROPERTY EQUATIONS FOR POTASSIUM 


o Vapor Pressure of Saturated Liquid 

log P (atm) = 2.5324 - 4Q - 8 - 8 -- + 0.4665 log (T°K) 

T(°K) 

o Enthalpy of Saturated Liquid 

H = 9.578 + 0. 19042t(°C) - 1.6533 x 10" 5 t 2 (°C) + 

2.2490 x 10 -8 t 8 (°C) . The reference temperature for this equation 
is 25°C . 

o Density of Saturated Liquid 

p^gm/cm 3 ) = 0.202 + 1.125 x IQ -2 (1900-t) 1/2 + 7.601 x 1 0 -5 ( 1 900-t ) 

o Viscosity of the Liquid 

log m (mp) = 2.13880 + - 0.71317 log T(°K) 

£ T(°K) 

o Viscosity of the Vapor 

4^,) = 0.0262 + 0.15(10" 4 ) T(°F) 

o Specific Heat of the Liquid 

C p (cal /gm °C) = 0.1904 - 3.3067 x 10~ 5 t(°C) + 6.7470 x 10 _8 t 2 (°C) 

& 

o Specific Heat of the Vapor 


C p (Btu/lb°R) = 0.12700 + 2.888 exp(_28070/T ) (°R) 


0 


Equation of State 


p = RT (i + B- + !L + “- + ^ t E_) < T =° R ) 

V y2 y 3 y4 y5 y6 

B = -0.13019 T 0,5 exp (7000/T)(cm 3 mole _1 ) 

C = -1.2388 x 10 7 exp (900/T) (cm 3 mole -1 ) 2 
D = -1.4179 x 10 11 exp (1000/T) (ciAole' 1 ) 3 
E = 7.9205 x IQ 15 (ciAiole" 1 ) 4 
F =-3.5099 x 10 19 (cnAiole" 1 ) 5 

o Surface Tension 

a = 121.31 - 0.0739 T(°C) 

' cm ' ' 

o Heat of Vaporization 

h fg = 560.27(1- I1^|I)°- 355 S (cal/g ) 

o Thermal Conductivity of the Liquid Potassium 
k(- p^ - £ -o F -) = 29.15 - 0.008 T(°F) 

1.3 PROPERTY EQUATIONS FOR CESIUM 

o Vapor Pressure of Saturated Liquid 

log P (atm) = 3.36292 - ^ 77 ^ + 0.16005 log T(°K) 

T ( K) 

0 Enthalpy of Saturated Liquid 

h (cal/gm) = 2.182 + 6.8412 x 10 _2 t(°C) - 4.0160 x 

a 

10~ 3 t 2 (°C) + 2.6653 x 10“ 3 t 3 (°C). The reference temperature for 
this equation is 25°C. 

0 Density of Saturated Liquid 

P^(gm/cm 3 ) = 0.434 + 2.495 x 10 -2 (1 770-t) 2 + 2.083 x 10" 4 (1770-t) 
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0 


Viscosity of the Liquid 


log u (mp) = 0.84005 + 7 ■ ^ - 0.27958 log T(°K) 

* T(°K) 

0 Viscosity of the Vapor 

y(ffTF) = °- 0337 + 0.25(10" 4 ) T(°F) 


0 Specific Heat of the Liquid 

C p (cal/gm°C) = 0.068412 - 8.032 x 10” D t(°C) + 7.9959 x 10" 8 t 2 (°C) 

£ 

0 Specific Heat of the Vapor 

C p (Btu/lb°R) = 0.037361 + 1 . 3099 eX p{ -25663/T ) (°r) 


0 


Equation of State 
P = RT (-• + ^~ + ^- + 

v v2 v 3 



(T = °K) 


B = -82.173T OJ5 exp (3350/T) (cm 3 mole -1 ) 

C = 2.7318 x 10 7 exp (1500/T)(cm 3 mole _1 ) 2 
D = -1.0421 x 10 12 exp (550/T) (cm 3 mol e" 1 ) 3 
E = 1.2610 x lO^cir^mole -1 ) 4 
F = -3.6091 x 10 19 (cm 3 mole _1 ) 5 


0 Surface Tension 

o = 76.4 - 0.030[T(°F) - 83] 


0 Heat of Vaporization 

h fg* 147.12(1- I^|i) 0 - 3547 fcal/g) 

0 Thermal Conductivity of Liquid 

k (Btu/hr ft °F ) = 13.95 - 0.00365T(°F) 
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APPENDIX C 


DESIGN COMPUTER PROGRAM 


This appendix presents a description of the design computer program. 
Section 1 , Program Abstract, gives a brief summary of the program's purpose 
and application and shows the calculation sequence. Section 2, Input Data 
List, gives a definition of the symbols used in the input data block and 
the format for the data cards. Section 3, Output Data List, gives a similar 
definition of the data output from the calculations. Section 4, Program 
Listing, gives a listing of the program card deck and it also gives 
listings for subroutines used to calculate the properties of the working 
fluids as a function of temperature. 
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1 . PROGRAM ABSTRACT 


The design program was written for the purpose of calculating the 
optimum radiator size and weight for a specific capillary pump, vapor, and 
liquid line dimensions. At the same time, the program calculates the pump, 
working fluid, and line weights and gives a total system weight. Using 
this program the pump variables can be varied, in turn, and computer 
runs made to get the corresponding system weights. In this way, the pump 
dimensions which result in a minimum system weight are obtained. This 
minimum weight is relative since the heat flux input is arbitrarily set 
equal to the total heat load divided by the number of heat rejection 
loops. 

The pump dimensions and system variables which were varied, are heat 
transfer area, wick thickness, pore diameter, distance between liquid feed 
arteries and the liquid and vapor line diameters and lengths; and heat flux 
(number of loops), working fluid, and working fluid subcooling. 

The following block diagram shows the computing sequence. 
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2. INPUT DATA LIST 


The following table describes the individual input card format and 
defines the symbols used in the data block. Real variables and integer 
variables are defined according to standard FORTRAN rules (integers begin 
with i , j , k, 1 , m, or n). 
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LIST OF SYMBOLS USED IN DATA BLOCK 


SYMBOL 

DESCRIPTION 

UNITS LIMIT 

CARD 10 ( 1 2A6 ) 

ANOTE 

Any comment may be typed in Col. 1-72. This comment 
will be printed on each run. 


CARD 20 (8E9.4) 

HC 

Condensation coefficient 

Btu/hr-ft 2 -°F 

DXS 

Thickness of metal between power conversion loop and 
cap-pumper. 

ft 

XKS 

Thermal conductivity of metal between power conversion 
loop and cap-pumper. 

Btu/hr-ff -°F 

TK 

Temperature of potassium in power conversion loop. 

°F 

CARD 30 (8E9.4) 

QTOT 

The total heat to be rejected by capillary-pump loop 
radiators. 

Btu/hr 

o 

A 

Area of capillary-pump liquid to vapor interface (screens) 
plus area of distribution manifold (normal to heat flow) 

fr 

TV 

Temperature at liquid to vapor interface. 

°F 

DXF 

Thickness of liquid metal in capillary-pump from rnetal to 
liquid to vapor interface. 

(Btu/hr)ft- c F 
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LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 

DESCRIPTION 

UNITS 

LIMIT 

CARD 40 (8E9.4) 

R 

Capillary effective radius 

ft 


GEE 

Acceleration due to gravity 

ft/sec 2 


CARD 50 (8E9.4) 

DTSC 

Subcooling at capillary-pump inlet 

°F 


CARD 60 (8E9.4) 

XLIQ 

Length of tubing from radiator outlet to capillary-pump 
inlet (liquid line) 

ft 


XV AP 

Length of tubing from capillary-pump outlet to radiator 
inlet (vapor line) 

ft 


XPIPL 

Liquid line - tube wall thickness 

ft 


XPIPV 

Vapor line - tube wall thickness 

ft 


DENM 

Density of liquid line and vapor line tubing 

lb/ ft 3 
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LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 

DESCRIPTION 

UNITS 

CARD 70 (3E9.4.I5) 



W 

Capillary-pump fluid flow rate 

lb/hr 

D1 

Liquid line ID 

ft 

D2 

Vapor line ID 

ft 

I 

Capillary-pump fluid (l=Na, 2=K, 3=Ce) 

— 

CARD 80 (2E9.4.4I5) 


ID 

Convergence criteria for iteration on temperature at 
liquid vapor interface. 

°F 

WD 

Convergence criteria for iteration on flow rate 

Ib/hr 

NCC 

Number of iterations (upper limit) before program aborts. 

— 

III 

Program control trigger. If III < 0, program will print 
out intermediate calculated values of selected variables. 
If III >1, program will not print out these variables. 


NLOOP 

Number of capillary pumped loops 


NUM 

Number of elements per capillary-pumped loop 



LIMIT 
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LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 


DESCRIPTION 


UNITS LIMIT 


CARD 90 (215) 

Ml 0 

N10 

CARD 100+, 101 
etc. (E9.4/8E9.4) 

Z10 

X10 

Y10 

CARD 110 (215) 
KAA 


Number of Z10 curves in family of curves (curve 10). 

Curves provided by D. Wanous. Radiator weight as a function 
of aP for several temperatures at radiator inlet. 

Number of sets of XI 0 and Y10 points per curve 


The number of cards depends upon the values of M10 and N10 on 
Card 90. There will be one card for each M10 plus one card 
for each of four (XI 0, Y10) pairs. 

Identifying temperature (must be input in increasing order) 
of the curve - where the temperature is at the inlet to 
the radiator. 

aP across radiator (must be input in increasing order). 

Total weight of radiator per capillary pump loop. 


Number of areas, A, to be studied. 


psi 

lbs 


CARD 120+, 121 

etc. (8E9.4) The number of cards depends upon the value of KAA. There 

will be a number of cards equal to the first integer larger 
than (KAA/8). 


12 


12 


12 


12 per ea.ZIO 
12 per ea.ZIO 


10 
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LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 


AA 

CARD 130 (215) 
KGAP 

CARD 140+, 141 
etc. (8E9.4) 


GAP 

CARD 150 (215) 
KNUM 

CARD 160+, 161 
etc. (819) 


KNUM 


DESCRIPTION 


UNITS 


Value of area. A, to be studied 


fr 


Number of gap widths, DXF, to be studied 


The number of cards depends upon the value of KGAP. There 
will be a number of cards equal to the first interger 
larger than (KGAP/8). 

Value of gap, DXF, to be studied ft 


Number of elements, NUM, to be studied 


The number of cards depends upon the value of KNUM. There 
will be a number of cards equal to the first interger 
larger than (KNUM/8). 

Value of number of elements, NUM, studied 


LIMIT 


10 
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3. OUTPUT DATA LIST 


The principal output for this program is self-explanitory since it 
does not use computer symbols. The name of each parameter is printed out 
in full. This print-out is divided into two general groups: The input 

configuration and operating parameters are printed out first, and the 
matched system parameters to which the program converges. This output 
is arranged according to the following table. 

Table 1 

Capillary Pump - Program 1 Case No. 

Units: lb, ft, hr, Btu, deg F except pressure, psi 


Number 

Design Runs for (working fluid) Loops Date 

Configuration : 

Fluid 

Number of Loops 
Heat Rate Per Loop 
Temperature at Heat Source 
Heat Transfer Area 
Area 

Gap Width 

Capillary Eff. Radius 
Number of Elements 
Element Hal f Width 
Tubing (Liquid) 

ID 

Thickness 

Length 

Tubing (Vapor) 

ID 

Thi ckness 
Length 

Matched System Parameters: 

Station 1 2 3 4 

Flow Rate 
Temperature 
Pressure 
Den si ty 
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Table 1 (Cont'd) 


Wei ghts/Loop: 

Capillary Pump 
Structure = 

Fluid = 

Pump Total 

Tubing 

Tubing (Liq) = 

Liquid 

Tubing (Vap) = 

Vapor 

Tubing Total 
Radiator = 

System Total = 


In addition to the output listed above, the program user may select 
(set III = 0 on input Card 8) to have other system state conditions and 
fluid properties printed out. These appear before the principal output 
and are arranged as follows: 


Table 2 


TI 

J 

UF 

TVD 

PVAP2 

HVAP2 

DENV2 

PL1 

XMU LI 

XFRIC 

CAP 

PVAP3 


Temperature at condenser wall - working fluid 
interface 

Iteration counter 

Conductance of the working fluid layer 

Difference in the calculated and the guess 
vapor temperature 

Vapor pressure in the pump 

Latent heat of vaporization in the pump 

Density of the vapor in the pump 

Static pressure in the liquid line at the 
entrance to the pump 

Viscosity of the liquid at the entrance to the 
pump 

Frictional pressure loss in the pump 

Capillary pressure rise in the wick 

Static pressure at the entrance to the radiator 
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PT3 = Total pressure at the entrance to the radiator 

DELP = Pressure drop across the radiator 

WTRAD = Flow rate in the radiator 

SKF = Thermal conductivity of the working fluid 

SV1 = First guess of the vapor temperature 

TV = Vapor temperature 

HL2 = Saturation enthalpy of the vapor 

SIG2 = Surface tension of the working fluid 

PT1 = Dynamic pressure of the liquid 

DPLIQ = Pressure drop in the liquid line 

PRISE = Net pressure rise through the pump 

DENV3 = Vapor density at the radiator inlet 

WTRADT = Total flow rate through all radiators 
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4. PROGRAM LISTING 


I FOP MA l N , M A I N 
C CAPILLARY pumper PROGRAM 1 

C THIS stfady STATE PROGRAM COMPUTES the COM P 1 T ' r [ ON S 00110 

C AT THE INLET AMn EXIT OF THE RAOIATOP 001^0 

DIMENSION X10(1?,12),Y10<1?,1?),Z10(1?),A10(?2,12) 04/-. ?0 

DIMENSION P V A P ( 3 0 ) , DE NV ( 3 0 ) 01770 

D IMENS ION AA ( 10) 00290 

DIMENSION GAP { 1 0) ,NNUM ( 1 0) 

D1MFNSI0N ANOTE ( 12) 

999 CONT I NJI IF 


R F AD (5*352) ANOTF 
READ (5,340) HC*nxS*XKS*TK 
READ (5,340) GTOT, A,TV,DXF 
READ (5,340) R , GF E »XMTOT 
READ (5,340) COE,DTSC 

READ (5,340) XLlO»XVAP,XPIPL f XPIPV,DENM 
READ (5,341) W, 01,02, I 

READ (5,342) TD ,WD ,NCC , I I I ,NLOOP, MUM 
READ IN CUR VF 10 HERE 
CURVE 10 IS WANOUS RADIATOR WEIGHT CURVE 
READ (5,343) M I 0 , N 1 0 
DO 2? J=1 ,M10 

22 READ (5*344)Zl0(J)*(X10(I10*J),Ylom0,J),IlO»l t N10i 
READ (5,343) K A A 

32 READ (5,340) < A A ( I I ) , I I = 1 , K A A ) 

READ ( 5 , 34 3 ) KG A P 

33 READ (5,340) (GAP( IGAP) , TGAP=1 ,KGAP ) 

READ ( 5 , 34 3 ) KNUM 

34 READ (5 ,35 1 ) ( NNUM { INUM) , INUM= UKNUM ) 

CALL DCCDIS ( X 10, Y1 0, 7 1 0 , A 1 0,M10,N 1 0, FN ) 

I F ( I I I -1) 83 ,84 ,84 

83 WRITF(6,9917) FN 
85 WRITE (6,9918) Z 1 0 ( 1) ,Z10(2) 

WRITE (6,9918)X10U,1),Y10(1,1),X10(2,1),Y101?,1) 

WRITE (6,9918) X10( 1,2) , Y 1 0 ( 1 , 2 ) , X 1 0 ( 2 , 2 ) , Y 1 0 ( 2 , 2 ! 

84 CONT INUE 

PE R = 0 . 9 

THIS IS AN ASSUMED FRACTION OF HEAT TRANSFER TO TOTAL AREA 

A 1= < 3 . 14 17*01**2) /4. 00 300 

A2= ( 3. 141 7*D2**2) /4. 00320 

OUE=OTOT /FLOAT (NLOOP) 

N0= 0 

DO LOOP FOR AREA VARIATION. 

DO 99 I I = 1 , K A A 

C 

A = A A ( I I ) 00350 

AHT=PER*A 
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C INSERT DD LOOPS HERE FOR GAP AND NUMBER OF ELEMENT VARIATIONS 
DO 99 INUM= 1 ,KNIJM 
NliM=NNUM ( INUM ) 

E A= ( A * P F R ) /FLOAT (NUM) 

X L = S OR T ( FA) /?, 

DO 99 IGAP^l ,KGAP 
D X F = G A P ( IGAP) 

C 

C NO I S A COUNTER FOR CASE NUMBER, 

NO = NfH I 
C 

C T I OR TFMPFR ATURF AT CAP-PUMPER SIDE OF METAL WALL 
T I = T K -01 IF *( 1 ,/HC + DXS/XKS) / ( A* PER ) 

C 

I F ( I I I - 1 ) 70,71 ,71 00370 

70 WRITF (ft, 9901) TI 

CONTINUE 00400 

C ITERATION FOR TEMPERATURE AT LIQUID VAPOR INTERFACE (SCREENS) IS PERFORMED 


C HFRF. 

C ITERATION IS REQUIRED RFCAUSF OF THERMAL COND- BEING A FUNCTION OF T 
C 

DO 73 J= 1 , N C C 00410 

3 UF=SKF ( I ,(( T I+TV )/?.)) /DXF 0042 0 

T VI = T I - ( QUF / ( A=*IIF *PFR ) ) 

TVD = (TV1-TV) 00440 

C ITERATION T F ST PFRFORMF 0 HFRF, 

IF ( ARS ( TV 1 -TV) . (. T . TO) GO TO 5 00450 

T V = T V 1 00460 

I F ( I I 1 - 1 ) 77, 73,7^ 00470 

7? COND k=SKF( I . ( ( T I + t v ) /?.) ) 

WRITF (6,9902) J , i" ! 1 NOK 
WRITF (6 ,990 3 ) l|F , T V 1 
WR 1 Tr (6,9904) TVD, TV 

73 CUNT INUF 00540 

4 WRITF (6,9905) TVf), J 

STOP 00600 

6 TV = Tv/) 00560 

6 CONI INUF 00610 

C 

C STATION 2 CHARACTERISTICS AS A FUNCTION OF TEMPERATURE COMPUTED HERE, 

C 

PVAP? = PV ( I , T V ) u i 7 80 

HVAP? = HSAT ( I ,TV) +HVX ( I ,TV) 01790 

HL2 = HSAT ( I , T V ) 01800 

DENV2=RH0V i I , TV) 01810 

SIG2 = S I G ( I , T V ) 01820 

IF ( I I I - 1 ) 74,75,75 01830 

74 WRITE (6,9907) PVAP2,TV 
WRITE (6,9908) HVAP2,HL2 
WRITE (6,9909) DENV2,SIG2 

75 CONTINUE 01900 

TL1=TV-DTSC 01910 
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non 


HL1 = HSAT ( I , TL 1 ) 

SIGL1 = S I G ( I,TL1) 

RHOL 1 =RHOL ( X f TL 1 ) 

HI 2=HSAT( I ,TV) -CPL ( I , (TV- (DTSC/2. ) } i *OTSC 
W=OUE/ (HSAT (I ,TV) + HV X ( I f TV) -HI?) 

XFRIC = FRIC < A,DXF,TI ,TV,DTSC,PER,NUM, I ) 

C PRESSURE AT STATION 1 COMPUTED HERE. 

PTi=PVAP2+( ( ( l./(DENV2*A2**2) )-( l./( RHOLl* 

X A 1**2) ) ) *(W**2) /4.1RE+08-2.*SIG2/R ) / 144. 

X +XFRIC 

CAP=SIG2/(R*72.) 

XMOMLS=( ( l./(DENV2*A2**2) ) — ( 1 . / ( RHOL 1 * A 1**2 ) ))*{W**2/(4.18E+0fl*144 
X.) ) 

PL 1 = PT 1 - ( .5*W**2./(RH0L1*A1**2.*144.*4. 18E + 08) i 
IF(PL1)61 *62,62 

61 PL 1 = 0. 

PT1 = .5*W**2 ./ ( RHOL 1*A 1**2. * 1 44 . *4 . 1 8 E + 08 ) 

62 CONTINUE 

PRI SE = PV AP 2-P T 1 
FRLOSS=XFR IC/PR I SE 
XMU L 1 = XMUL ( I * T L 1 ) 

C PIPE LOSSES FROM STA 0 TO 1 COMPUTED HERE. 

DPL IO = 0.263E-1 1*< XMUL1**0.25) * < (W/A2 )**1 .75 ) *XL 10/ ( RHOLl *D2**1 .25 ) 
PT 0= PT 1 +D P L I 0 
IF < I I I - 1 > 77 *78,78 

77 WRITE (6,9911) PL1,PT1 
WRITE (6,9912) XMULl.DPLIO 
WRITE (6,9920) XFRIC, PRISE 
WRITE (6,9919) CAP ,XMOMLS 

78 CONTINUE 

PIPE LOSSES FROM STA 2 TO 3 COMPUTED HERE. 

SMALL INCREMENTS OF PIPE ARE USED DUE TO DENSITY VARIATION 
AS A FUNCTION OF PRESSURE. 

NN= 1 0 

P V A P ( 1 ) = PV AP 2 
DE NV ( 1) =DENV2 
XMUV 2 = XMUV ( I ,TV) 

X VAPP= XVAP /F LOAT (NN) 

DO 76 J= 1 ,NN 

DP V A P= 0.2 636-1 1*< XMUL 2**0. 25) *< (W/A2)**1.75)*XVAPP/ 

( DENV ( J ) *02**1.25) 

PVAP( J+l) =PVAP ( J) — DPVAP 
DENV ( J + 1 ) =RHO ( I ,TV,PVAP( J+l)) 

76 CONTINUE 

PT3 = PVAP (NN+1 ) 

DENV3 = DENV (NN+1 ) 

P VAP3 = PT 3- ( .5*W **2 • / ( DENV3*A2**2.*144.*4 . 18E + 08 ) ) 

PL 0= PTO- ( .5*W**2. /(RHOLl *A 1**2. *144. *4. 18E + 08 ) ) 

DELP=PT3-PT0 
IF(DELP) 91,92,92 

91 WRITE (6,326) NO »DE LP 
GO TO 99 

92 CONTINUE 

IF ( I I I — 1 > 79,80,80 


01920 

01930 

01940 

01950 

01960 


01970 

01980 


02010 


02030 


02100 

02110 

02120 

02130 

02140 

02150 


02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 
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79 WRITE (6,9913) PVAP3 , 0ENV3 
WRITE (6,9914) PT3 ,PTO 
WRITE (6,9915) DEEP, TV 

80 CONTINUE 

C RADIATOR WEIGHT READ FROM CURVE. 

20 CALL DCDIS ( A 1 0 , X 1 0 , Y 1 0 ,Z 1 0, DEL P , WTR ADT , T V ,M 1 0 ,N 10 , FN ) 
WTRAD=WTRADT/FLOAT (NLOOP) 

I F( II 1-1 ) 81 ,82,82 

81 WRITE (6,9916) WTRAD,WTRADT 
WRITE(6,9917)FN 

82 CONTINUE 

31 CONTINUE 

C WEIGHT OF VARIOUS CAP-PUMPER ELEMENTS COMPUTED HERE. 

C DISTRIBUTION CHANNELS ARE ASSUMED TO BE 1/2 INCH OEEP 

WTL=A*RHOL ( I , ( T I +T V ) / 2 . ) * ( DXF*PER+ ( . 04 1 74 ( l.-PER ) ) ) 


WTM=A*2.2*DXS*536. 00680 

WTPUMP=WTL+WTM 00690 

D10D=D1+2.*XP1PL 00700 

410=3.1417*0100**2/4. 00710 

X SEC 1 = A 1 0-A 1 00720 

WTPIPL=XSEC1*XLI0*DENM 00730 

WTLIQ=A1*XLIQ*RH0L1 00740 

D20D=D2+2.*XPIPV 00750 

A20=(3. 1417*0200**2) /4. 00760 

XSEC2= A20-A2 00770 

WTPIPV=XSEC2*XVAP*DENM 00780 

WTVAP=A2*XVAP* ( DENV 2+DENV3 ) /2. 00790 

TUBEWT=WTP IPL+WTL IO+WTPI PV+WTVAP 00800 

WTOTL=WTPUMP+WTRAD+TUBEWT 00810 

T LO = TL 1 01140 

RHDO=RHOL 1 01150 

TV3=TV 01160 

WR ITE ( 6,300) NO 

WRITEI6.302) 01180 

WRITE (6,353) ANOTE 

WR I TE ( 6 , 304 ) 1 01190 

WR ITE (6,306) NLOOP 01200 

WRITE ( 6,308) OUE 01210 

WRITE(6,310) TK 01220 

WRITE(6,327) AHT 

WRITE(6,312) A,DXF,R 01230 

WRITE (6 ,328) NUM » X L 

WRITE(6,313) D1,XPI PL.XLIO 01240 

WR I TE ( 6 , 325 ) D2 ,X P I P V . XV AP 01250 

WRITE(6,314) 01260 

WRITE (6,350) FRLOSS 

WRITE (6,316) W,W,W,W,TL0,TL1 , TV , T V3 , PTO , PT 1 , PVAP2 , PT3 01270 

WRITE ( 6,318) RH00,RH0L1 ,DENV2,D£NV3,WTM 01280 

WRITE(6,320)WTL, WTPUMP 01290 

WRITE(6,322)WTP1PL ,W TL 1 0 ,W TP I PV ,W TV AP 01300 

WRITE (6,324) TUBEWT ,WTRAD,WTOTL 01310 

99 CONTINUE 01320 

GO TO 999 

300 FORMAT ( 1 H 1 , / / 20X , 28HC AP I LL AR Y PUMPER - PROGRAM 1 , 
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112H CASE NO. ,!3) 

30 2 FORMAT M HO , 1 3 X , A SHUN I T $ L H , F T , HR , R T l J , OF G F h X 0 F P T PR FSM'P^i PS! '• 


30 4 FORMAT ( 1 HO , / , 9X 1 4 hCONF I G! JR A T ! ON / 1 4 X5HF L 1 1 1 0 2 2 * ?H= , I « ) 

306 FORMAT! 16X16HNUMRFR OF l OOP S 1 2 X ?H= , IR) 00920 

308 FORMAT ( 16X 1RHHE AT R A 1 r PFR LOOP * r -» X f ? H = t FQ.O) i >0«30 

310 FORMAT! 16*29HTPMPFRATnRE AT HFAT MM IR f F - , F I 1 . 2 ) r-r ..,/,0 

312 FORMAT ( 1FX , 1 RHAREA 9X?H = F ] 1 . ? / 1 6 X 9HG A P wl I’ ! H , 

X 18X2H= , F 15 .6/ 16X21 HEAP I l L ARY EFF. R A 0 1 11 5 , 6 < 2 H =: , F I 5 m t ) 

313 FORMAT (16X 1 SHTOR INr- ( L I OU \ 0 ) / 1 9 X ?H I 0 , ? 2 X , ?H = , F 1 6 .6/ iHwm- 

X 1 9 X 9 H T H I f. K N F S E , 1 S X T 2 H - , F 1 5 . 6 / 1 Q X , 6H|. F NO 1 j- * 00 PU 

X 1 R X ♦ ?H= , F 1 5 • 6 ) 0( ' >1 ~ ' 

31^* FORMAT ( 1 H0*9X?6HMATr.HF0 SYSTPM P A R A M p T F R 5 / 13 > 7 H 5 I A 1 ! • , 

X 16X 1H0,9X t }H i , -t X . 1 hs ,qy , 1 *3 ) 

316 FORMAT ( 1 HO , 1 5 X 9HF L nw R A T F , ? X T F 8 . ? , U 2 X , F h . 2 j / ! h x , ! H M f- M P f * A : 1 * * * 


X SXFR .? t 3 ( 2X ,f-8 .? ) / 16 XPHPRF S SURF . 8XJ- P .2 t 3 v 2X f f- i ; 

HR FORMAT (Jh t 1 5 X 7H0F N S I T Y , 9X , F R . 2 , 3 ( 2 X , F ft . 2 ) / i OX 1 3 - wF I ( . s- * / I 

X / * : * H 6HCAPI LLARY PUMP F R / 1 6 X 9H S T P Mf. T I )R E4X 2 m r , - ~ ' 

320 FORMAT! 16XShFLUIDRX?H= f F 9 . 2 / 1 4 X 1 2HPUM PFP T G i A f. 3 X 2H =■ , 

X F 9 . 2 ) 

3 22 FORMAT ( 13X6 ! -TUPI NO / 1 6X 1 2HTURING ! L l G ) 3 X 2H - H 9. 2 / 

X 1 6 X 6 U t. I Q IJ I D , 9 X , 2 H - , F 9 . 2 / } 6 X 1 2 H f U R ] \ f (V&P> 


X ?H = , F9. 2/ 16X5HVAPOR , 1 OX , ?H= , v; , 2 ) • * 

324 FORMAT ( 1 4 X 1 ? H T U « 1 NO TOTAL, 6X,2H= T F 9 . ?/ M X f ft m P A < ! t OR ; . 

X, ! 3 X 2H= , F9. 2/ i 3X 1 2HSVSTEM T 0 ’’ A i * i I. 

X f F9.2///) • ! 

325 FORMAT ( 16X, l^MTUPINO ( V A POR ) / 1 9X 2 H I 0 , 2 2 X , 2 H = , F } 5 „ / / 0- .* 

X ] 9X9HTH I CKNFSS , ] 5X , ?H= , F 1 5 . 6 / l 9 X , r. u \ ' T m t 0( •’ 

X 1 8 X ♦ 2H= ,F15,6) 00 


^26 FORMAT ilH , 3 - 9 H C A P I LI ARY Pt)MPFR WILL NOT PUMP * C A S • N : ■ . 

( 2 OH OFLTA PRESSURE = f Fi3*4) 

327 FORMAT (16x ? IRHHFAT TRANSFFR ARFAQX?H= F11.2) 

3 2 R FORMAT ( 1 6 X , 1 8 HNUM B F R OF H FMFNTS, q X,2H= ,IR,/ 

X ] 6X , 1 RHFLFMFNT half W I D T H ? 9 X T 2 H - ,F15.6 J 

340 FORMAT <RFP.4) 

3 a ] FORMAT ! 3F 9 .4 , I 6 ) 

^^2 FORMAT I2F9.4,4I5) 

343 FORMAT (215) 

344 FORMAT ( E 9 . 4 / ( 8F 9 .4 ) ) 

345 FORMAT < 1 H , 2 9H 1 EXCFFDS PROORAM LIMITS 1= ,15) 

350 FORMAT ! 1 H+ , 70X , 1 1 HF R I C T I ON = ,F7.5,23H OF PUMP ro,-, ,i p, ... ■ j- ) 

351 FORMAT !RI9) 

352 FORMAT (12A6) 


353 

FORMAT 

( 1H 

* 1 2A6) 





9903 

FORMAT 

( 1H1 

* 7 H 

T I — 

? F 1 3 • 5 ) 




9902 

FORMAT 

( 1H 

? 7H 

J = 

,113, 

RH 

SKF = 

, F 1 3 • 5 ) 

9903 

FORMAT 

! 1H 

,7H 

UF = 

, F 1 3 • 5 , 

RH 

T V 1 = 

, F 1 3 * 5 ) 

9904 

FORMAT 

! 1H 

,7H 

T VD = 

» F 1 3 • 5 , 

RH 

TV = 

, F 1 3 • 5 ) 


9905 FORMAT (1H , 1 9HTEMPFR A TORE OIFF = *F13.5,7H J= ,15) 

9907 FORMAT ( 1H ,7HPVAP2= ,F13. 5, RH TV= t F13.S) 

9908 FORMAT C 1 H ,7HHVAP2- ,F13,5,8H HL2= ,F13,5> 

9909 FORMAT <1H r 7HDENV 2~ ,F13.5*RH STG2= f F13.5) 

9911 FORMAT UH ,7H PL1= tF13«5,RH PT1= t Fl3,5) 

9912 FORMAT ( 1H ,7HXMUL1= »F13,5,8H 0PLI0= f F13-5) 

9913 FORMAT UH ,7HPVAP3= •Fl3*5 t 8H DENV3= ,F13*5) 
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9914 

FORMAT 

( 1H 

, 7H 

PT3 = 

f F13.5tRH 

PTO = 

9915 

FORMAT 

( 1H 

*7H 

DE L P = 

•F13.5* 8H 

T V = 

9916 

FORMAT 

( 1 H 

, 7HW T R AD = 

,F13.5 ,PHWTR4DT= 

9917 

FORMAT 

( 1H 

t 7H 

FN = 

* F 1 3 • 5 ) 


9918 

FORMAT ( 1H , 

RF 10 

.3) 



9919 

FORMAT 

( 1H 

, 7H 

C AP = 

*F13.5»8HX MOM L S = 

9920 

FORMAT 

( 1H 

t 7HXFR IC= 

» Fl3.5tBH 

PR I SE = 


END 







t F 1 3 • 5 ) 
f F 1 3 • 5' ) 
» F 1 3 • 5 ) 


t F 1 3 • 5 ) 
t F 1 3 • 5 ) 

01330 


I FOR FRIC^FRIC 

FUNCTION FR I C ( A *DXF , T I f TV *nT5C t PER »NIJM , 1 ) 

C THIS FUNCTION COMPUTES PRESSURE LOSS OF LIQUID FLOWING IN CAP-PUMPER 
C (PSI) WHERE A = T OT A L HEAT TRANSFER AREA (SO FT) 

C D X F = G A P WIDTH (FT) 

C T I = T FM PER AT UR E AT CONDENSER WALL (DEG F) 

C. T V= T FMPE R A TOR F AT SCREENS (DEG-F) 

C DT SC = T E MP OIFF BETWEEN SCREENS AND LIQ IN (DEG-F) 

C PFR=FRACTION OF TOTAL HEAT TRANSFER AREA COVERED 

C BY SCREENS 

C NUM = NUM B E R OF CELLS 

C I=TYPF fluid ( l=NAt2=Kt3=CEi 

FA= ( A*PFR ) /FLOAT (NUM) 

XL-SQRT ( EA) /?. 

T A V G = ( T I +TV) /2. 

VI S = XMU(. ( I ,T A V G ) 

X K = SK F ( I , TAVG) 

H = HV X ( I , TV) 

D=RHOL ( I , TAVG) 

C TWO LAYER SC R FEN THICKNESS IS 4 MILS 

D P= ( 2.0 2 F -08) * V I S * X K * ( T I -TV) *XL**2/ 

X (D*(DXF —0.000333) **3.*0XF*H) 

C 1.05 IS A FACTOR TO ACCOUNT FOR LOSSES IN THE DISTRIBUTION MANIFOLD 
FR I C = ( D P * 1 .05) / 1 44 . 

RETURN 

END 


I FOR R HO , R HO 

FUNCTION RHO(UXTtXP) 04340 

C THIS FUNCTION COMPUTES DENSITY BASED ON EO OF STATE 04350 

C LR/CU FT WHFRF (I) IS N A = 1 f K = 2 T C E = 3 X T = D E G F f 04360 

C X P = L R / SQ- I N 04370 

DIMENSION R ( 3 ) ,R(3) 04380 

P=XP*144. 04390 

T=XT+460. 04400 

TK=T/1.8 04410 

Bl = -2. 3013+075 2. 9 /TK) + A LOG 10 ( TK) 044 20 

B(2)--0.13019**SORT(TK)*EXP(7000./TK)*3.531E-05/.0861 04440 

B ( 1 > = 10.**ABS(B1> *3.531E-05/0.0503 04430 
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B(3)*(-82.17S*T**.15)*EXP(3350./TK)*3.53TP:-05/.293 

04450 

R ( 1) =1545. /22. 991 

04460 

R ( 2 ) =1545. /39.1 

04470 

R(3)=1545./132.91 

04480 

A A = B ( I ) *R( I) *T 

04490 

BR=R( I) 

04500 

RH0=2.*(-P) /(-RB-SORT ( BB**2 . -4 .* A A* ( -P ) ) > 

04510 

RETURN 

04520 

END 

04530 


I 

FOR RHOV,RHOV 



FUNCTION RHOV ( T ,T) 

03780 

C 

THIS FUNCTION FINDS VALUES FOR DENSITY OF SAT VAPOR 

03790 

c 

LB/CU FT WHERE I(NA=1, K=2, CE=3), T = DE G F 

03800 


I F ( I.EO.l) GO TO 10 

03810 


I F< I . E 0 • 2 ) GO TO 20 

03R20 


I F ( I.E0.3) GO TO 30 

03830 


WRITE (6,9901) 

03R4Q 

9901 

FORMAT ( 1 H • I EXCEEDS PROGRAM LIMIT * 

03860 


STOP 

03860 

10 

I F ( T-840. ) 40,50,50 

03870 

40 

WRITE ( 6 ,99 0 2 ) T 


9902 FORMAT <1H ,28H T IS BEYOND CURVE LIMITS T= ,F13.4) 



STOP 

03900 

50 

I F ( T— I 300 • ) 55,55,60 

03910 

55 

SL = ALOG< 4 . E— 05 /2.6E-03) / ALOG ( R40 . / 1 3 00 . ) 

03920 


C=AL0G(2.6E-03)-SL*AL0G( 1300. ) 

03930 


RHOV=(T**SL) *EXP(C) 

0 3 940 


RETURN 

03950 

60 

I F( T-2 120.) 65 ,65 ,40 

03960 

65 

S L = A L OG ( 2.6E-03/. 10) / ALOG ( 1300./21 20. ) 

03970 


C=ALOG( .10) -SL * ALOG ( 2120.) 

039P0 


R H OV = (T**SL) *EXP(C) 

03990 


RETURN 

04000 

20 

I F ( T-840. ) 40,70,70 

04010 

70 

I F ( T-1050.) 75 ,75 ,R0 

04020 

75 

SL = ALOG(5.4E-04/4.E-03) /ALOG f 840. / 1 050. ) 

04030 


C=AL0G(4.E-03) -SL*ALOG( 1050.) 

04040 


R H 0 V = (T**SL) * E X P ( C ) 

04050 


RETURN 

04060 

80 

I F ( T- 1550.) 85,85,90 

04070 

85 

SL = AL0G(4 »E — 03 /6.6E — 02) / ALOG ( 1050./ 1550. ) 

04080 


C=ALOG(6.6E-02) -SL*ALOG< 1550.) 

04090 


RHOV=(T**SL)*EXP(C) 

04100 


RETURN 

04 110 

90 

I F ( T — 2 240 . ) 95,95,40 

04120 

95 

SL=ALOG( 6.6E-02/.41 ) /ALOG ( 1550./2240. ) 

04130 


C = AL OG ( .41) -SL* ALOG ( 2240.) 

04140 


RHOV=(T**SL) *E X P ( C ) 

04150 


RETURN 

04160 

30 

I F ( T— 5 00. ) 40,100,100 

04170 
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on u> :\j — on 


100 I F ( T — 1 000 . ) 105,105,110 04180 

105 SL=AL0G(2. 6E-04/2.8E -02) / ALOG ( 500 . / 1 000 . ) 04190 

C=AL0G( 2. RE-02) -SL*AL0G ( 1000. ) 04200 

RH0V= ( T**SL) *EXP(C) 04210 

RETURN 04220 

110 I F ( T — 1 5 00 • ) 115,115,120 04230 

115 SL=AL0G(2.8E-02/.3) /AL0G( 1000,/ 1500. ) 04240 

C = ALDG( .3) -SL *AL0G ( 15 00.) 04 250 

R HOV = (T**SL) *EXP<C> 04260 

RETURN 04270 

120 I F ( T-2240. ) 125,125,40 04280 

125 SL=ALDG( .3/1 .7) /AL0G< 1500./ 2240.) 04290 

C=ALOG< 1.7)-SL*ALOG<2240.) 04300 

R HOV = ( T * * S L ) *FXP ( C) 04310 

RETURN 04320 

END 04330 


I FOR RHOL , R HD t 

FUNCT ION RHOL II ,XT) 

THIS FUNCTION COMPUTES DENSITY OF SATURATED LIQUID (LB/CU-FT) 
WHERE I(NA = 1 , K = 2, CE = 3) , XT = DEG F 
T = (XT-32.) /I. 8 
IF ( I . E 0 . 1 ) GO TO 10 
IF ( I .ED. 2) GO TO 20 
IF (I . E Q . 3 ) GO TO 30 
WRITE (6,9901) 

9901 FORMAT (1H .16 H I EXCEEDS LIMIT ) 

STOP 

0 RHOL = ( .206 + .0 1017*SQRT(2300.-T)+1.1E-04’M 2300.-T) ) 

X *6 2 . 4 3 
RETURN 

0 RHOL = ( .2 02 +.01 125*SQRT ( 1900.-T)+7.601E-05*( 1900.-T 

X) ) *62 .4 3 
RETURN 

0 RHOL = ( .434+. 02495* ( 1770. -T ) **.5 + 2. 083E-04*( 1770. -T 
X) ) *62.43 
RETURN 
END 


02840 

02870 

02880 

02890 

02900 

02910 

02920 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 


I FOR PV,PV 

FUNCTION PV( I t XT) 03260 

THIS FUNCTION COMPUTES VAPOR PRESSURE OF SAT LIQ ( P S T > 

WHERE UNA = 1, K = 2, CE = 3), XT = DEG F 03290 

DIMENSION A { 3 ) ,B(3) ,C(3) 03300 

A ( 1 ) = 3.84235 03310 

A ( 2 ) = 2.5324 03320 

A ( 3) = 3.36292 03330 

B ( 1 ) = 5153.7 03340 
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B ( 2 ) = 4068,9 03350 
B ( 3 ) = 3617,76 03360 
C(l) = 0.20171 03370 
C ( 2 ) = 0.4665 03380 
C C 3 ) = 0.16005 03390 
T = ( (XT-32.) /1.8J+273. 03400 
PV = <10.**(A<I)-(B(I)/T)+cm*AL0G10(T) ))*14.7 03410 
RETURN 03420 
END 03430 


I FOR HV X , HVX 

FUNCTION HVX(I,XT) 03440 

C THIS FUNCTION COMPUTES THE HEAT OF VAPORIZATION ( BTlJ/LR ) 

C WHERE KNA = It K = 2? CE - 3 ) , XT = DEG F 03470 

DIMENSION A(3> ,B(3) ,C(3) 03480 

A ( 1 ) = 1157.65 03490 

A ( 2 ) = 560.27 03500 

A ( 3 ) = 147.12 03510 

B( l) =2573, 03520 

B ( 2 ) =2173. 03530 

B(3)-2043. 03540 

C ( 1 ) = 0.3647 

C ( 2 ) = 0.3558 03560 

C ( 3 ) = 0.3547 03570 

T = ( (XT-32.) /1.8)+273. 03580 

HVX = (A(I)*I1-T/BIII)**CII))*1.79882 03590 

RETURN 03600 

END 03610 


I FOR HS AT , HS AT 

FUNCTION HS AT ( I »XT) 03050 

C THIS FUNCTION COMPUTES ENTHALPY OF SATURATED LIQUID (BTU/LB) 

C WHERE KNA = 1, K = 2, CE = 3), XT = DEG F 030R0 

T = ( XT-32.) / 1 . 8 03090 

IF (1-1) 10,10*20 03100 

10 HS AT = ( 16. 151+0. 33994*T-. 3 8984E -04*T**2. + . 14834E-07 03110 

X*T**3.>* 1.79882 03120 

RETURN 03130 

20 IF (1-2) 30,30,40 03140 

30 HS AT = (9.578+0. 19042*T-. 16533E-04*T**2.+. 22490E-07* 03150 

XT**3.)* 1.79882 03160 

RETURN 03170 

40 IF (1-3) 50,50,60 03180 

50 HS AT = ( 2. 182+.06841*T-.40160E-04*T**2.+.26653E-07*T 03190 

X**3.)* 1.79882 03200 

RETURN 03210 

99 FORMAT ( 1 H • I EXCEEDS LIMIT ') 03230 

60 WRITE (6,99 ) 03220 
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o o 


STOP 

END 


03240 

03250 


I FOR CPI * C PL 

FUNCT ION CP L ( I * XT ) 

THIS FUNCTION COMPUTES SPECIFIC HEAT OF LIQUID 
(BTU/LB-DEG F) WHERE I(NA = 1, K = 2, CE = 3) 
C XT = DEG. F 

DIMENSION A { 3 I ,B(3) ,C(3) 

A ( 1 ) = 0.33994 

A ( 2 ) = 0.1904 

A < 3 ) = 0.068412 

B ( 1 ) = 7 .796 8 E -05 

B ( 2 ) = 3.3067E-05 

B ( 3 ) = R.032E-05 

C(l) = 4 • 45 02 E — 08 

C ( 2 > = 6.747E-08 

C(3) = 7.9959E-08 

T = ( XT-32 .) /I .8 

CPL = A(I ) -B(I> *T+C<I) *T**2 

RETURN 

END 


I FOR SKF.SKF 

FUNCTION SKF < I ,T) 

C THIS FUNCTION COMPUTES THE THERMAL CONDUCTIVITY OF LIQUID 
C BTIJ-FT / HR-SQ FT-DEG F 

C WHERE I(NA=l,K=2fCE = 3lf T = DEG F 

DIMENSION A(3) , B ( 3 ) , X 1 1 (12) , Y 1 1 I 12),A11(22,4) 

A ( 1 ) =47.97 
B ( 1) =-0.01035 
A ( 2 ) =29 . 1 5 
B ( 2) =-0.008 
IF (1-2) 10,10,20 

10 SK F= A ( I ) +B ( I) * T 
RETURN 

20 DATA (Xll(J) , Y 1 1 ( J ) , J= 1 , 6 ) / 200. , 1 2 . 1 , 400. , 1 2 . 0, 55 0. , 1 1 . 75 , 
X 700., 11 .4,1 150., 9. 75,2200., 5.5/ 

CALL CCD I S (XII, YU, All, 6, FN) 

CALL CD I S (A11,X11 , Y 1 1 , T , SKF , 6 , FN ) 

RETURN 

END 


I FOR SIGtSIG 

FUNCTION S IG ( I ,XT ) 03620 


02330 

02340 

02350 

02370 

02380 

02390 

02400 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 
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on o o no 


THIS FUNCTION COMPUTES SURFACE TENSION LB/FT 

03630 

WHERE 

I <NA 

s 1, K » 2f CE = 3)f XT a DEG F 

03640 

DIMENSION A ( 3 ) 

? B ( 3 ) * T ( 3 ) 

03650 

A(l) = 

202. 14 


03660 

A ( 2 ) = 

121.31 


03670 

A ( 3 ) = 

76.4 


03680 

B( I) = 

0.0986 


03690 

B ( 2) = 

0.0739 


03700 

B ( 3 ) = 

0.030 


03710 

T ( 1 ) = 

(XT-32. 

) / 1 • 8 

03720 

T (2) =( 

XT-32.) / 

1 .8 

03730 

T ( 3 ) = 

XT-83. 


03740 

SIG = 

( A( I)-B( 

I ) *T ( I ) ) *< 2.248E-06/.03281 ) 

03750 

RETURN 



03760 

END 



03770 


I FOR XMUV.XMUV 

FUNCTION XMU V ( I ♦ T ) 02520 

THIS FUNCTION COMPUTES VISCOSITY OF VAPOR (LB/HR-FT) 

WHERE I(NA = 1 „ K = 2, CE = 3) , T = DEG F 02550 

DIMENSION A ( 3 ) « B ( 3 ) 02560 


A( 1) 

- 

0.0275 

02570 

A ( 2 ) 

= 

0.0262 

02580 

A ( 3 ) 

= 

0.0337 

02590 

B( 1) 

= 

. 1 75 E — 04 

02600 

B ( 2 ) 

= 

• 15 E —04 

02610 

B( 3) 

= 

• 2 5 E — 04 

02620 

XMU V 

= 

A ( I ) +B ( I ) *T 

02630 

RETURN 


02640 

END 



02650 


FOR XMUL t XMUL 


FUNCTION XMUL ( I * XT ) 

02660 


THIS FUNCTI 
WHERE 

ON COMPUTES VISCOSITY OF LIQUID (LB/HR-FT) 
UNA = It K = 2, CE = 3) t XT = DEG F 

02690 

DIMENSI 

ON A (3) t B ( 3 ) ♦ C ( 3 ) 

02700 

Ad) 

- 

1 .31558 

02710 

A ( 2 ) 


2.13880 

02720 

A ( 3 ) 

= 

0.84005 

02730 

B ( 1 ) 


234. 

02740 

B ( 2 ) 

= 

133.039 

02750 

B ( 3 ) 

= 

205.902 

02760 

C( 1) 

= 

0.42966 

02770 

C ( 2 ) 

= 

0.71317 

02780 

C ( 3 ) 

— 

0.27958 

02790 

T = 

( (XT-32.) /I. 81+273. 

02800 

XMUL 

= (10.**(A(I) + (B(I>/T)-C(I) * ALOG 1 0( T I I) *.24 2 

02810 

RETURN 


02820 
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END 


02830 


I FOR TDSEO, TDSEO 

SUBROUTINE TDSEO ( A , N , FN) 05560 

C TDSEO 05530 

C TDSEO SOLVES A SYSTEM OF SIMULTANEOUS EQUATIONS 05540 

C WHOSE COEFFICIENT MATRIX IS TRI-DIAGONAL 05550 

DIMENSION A ( 2 2 * 4 ) 

I F ( A { 1 » 2 ) ) 12*11*12 05580 

11 FN= 1*0 05590 

GO TO 50 05600 

12 A( 1,3)=A(1,3) /A( 1*2) 05610 

A(1*1)=A(1*4)/A(1*2) 05620 

N= N 05630 

DO 10 I =2 *N 05640 

A(I,2)=A([,2>-A(I*1)*A(I-1*3) 05650 

I F C A I 1 ,2)) 13,11,13 05660 

13 A( I ,3) =A( I ,3) /A ( I ,2) 05670 

10 A ( I ,1) = ( A( I ,4) -A( I *1) *A(I-1* 1) ) /A( I ,2) 05 680 

I = N 05690 

20 I = 1-1 05700 

I F ( I ) 40,40,30 05710 

30 A(I,1)=A(I,1)-AU,3J*A(I+1,1) 05 720 

GO TO 20 05730 

40 FN = 0.0 05740 

50 RETURN 05750 

END 05760 


I FOR CCDIS,CCDIS 

SUBROUTINE CCDIS (X,Y,A,N,FN) 05150 

C CONTINUOUS DERIVATIVE INTERPOLATION SUBROUTINES 05140 

C CCDIS COMPUTES THE COEFS FOR THE CUBIC EQUATION 05160 

DIMENSION X( 12) ,Y< 12) ,A(22,4) 

A ( 1 , 1 ) = 0 .0 05180 

A ( 1,2) =-2 . 0 05190 

A( 1 *3) =2 .0*1 X ( 2) -X ( 1 ) ) 05 200 

A(l,4)=0.0 05210 

N3= N— 1 05220 

N 1 = N3-1 05230 

J= 1 05240 

DO 10 I = 1 , N 1 05250 

J = J+l 05260 

A< J*1)MX< I + D-XII) ) / ( X ( I + 2)-X(I + l ) ) 052 70 

A(J,2)=A(J,1)*IX(I+1)-X(I)I 05280 

A(J,3)=1.0 05290 

A(J,4) -(Y( 1 + 1) — Y (I)) /( C X ( 1 + 1) “XII ))*(X( 1+2) 1 + 1 ) ) ) 05300 

A(J,4)=A(J*4)— (YII+2)— Y(I+1) )/( (X( 1+2)— X(I+1) ) * ( X ( I + 05310 

X2> -XII+1) ) ) 05320 
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K = I 0 5 3 30 

J = J+l 05340 

A { J , 1 ) = ( X ( K+l ) -X ( K) ) / ( X (K + ?) -X (K+l ) ) 05 350 

A(J,2)=-((X(K + 2)-X(K))/((X(K + ?)-X(K + l))*(X(K+l)-X(K)) 0 5 750 

X)) 05770 

A ( J * 3 ) = 1*0 057R0 

A(J,4)=(Y(K+?)-Y{K+in/(IX(K+l)-X{KI)*(X(K+2)-XlK+ll) 05 3 90 

x) nsAon 

A(J,4)=A(J,4)/(X(K+?l-X(K+in 0 5410 

R=(Y(K+1)— Y(K) ) /((X(K+1)-X(K) ) - ( X ( K + 1 ) — X ( K } ) ) 0542 0 

R=R/(X(K+2)-X(K+l)) 0 54 70 

10 A ( J,4) =A ( J*4> -R 05440 

N ? = ? * n 3 ns^n 

A ( N? , I ) = -? . 0 05460 

A (N? ,? ) =-4 .0* ( X ( N3 + 1 ) -X (N3)> 05 4 70 

A(N2,3) =0.0 0S4PO 

A (N2 ,4 ) =0.0 05400 

CALL TDSFO ( A , N? , FN ) 05500 

RF TURN 05510 

FND 05520 


i for cniSff.nis 

SUBROUTINE COIS ( A , X , Y , X P , Y P , N , F N ) 06770 

C COIS INTERPOLATFS BF TWEEN TAB POINTS 0 WRo 

DIMENSION X< 12) ,Y( 12) ,A(2?,4J 

IF (XI 1)-XP) 11,11 *10 O^muP 

10 SLnPEl = {Y(?)-Y(l))/(X(?)-X(I)l+A(l,l)«IX(2)“X(l)) 0 58)0 

YP = Y( 1 ) +SLOPF 1 - ( XP-X ( 1 ) ) 04H2D 

FN = — ] • 0 OSR TO 

GO TO 16 0 5R40 

11 N=N 0 58 50 

IF (XP-X(Nl) 13*13,12 05850 

12 N?=?*(N-1) 05R7O 

SLnPF?=(Y(N) -YIN-1 ) ) / ( X ( N ) -X ( N - 1 ) ) - A ( N 2 — 1 * 1 ) - I X(N) 05RRO 

X -X ( N-l } ) -A (M2, 1 ) * ( X (N) -X (N-l ) ) * ( X ( N ) -X (N-l ) ) 05R90 

YP = Y(N) + SLOPE?* (XP-X (N) ) 0 5 900 

FN=1.0 05910 

GO TO 10 05920 

13 1=1 05930 

14 1=1+1 05940 

IF ( X ( I ) -XP) 14,15,15 05950 

15 K=2*I-3 05950 

C = Y(I — l) + ( (Y( I) — Y(I — 1) ) /(Xi I) — X( I — 1 ) ) >*<XP-X < 1-1 > > 05 9 70 

C=C+A(K,1) * ( X P -X ( I-l ) ) - ( X ( I) -XP) 05980 

YP = C + A < K+ 1 , 1 ) * ( XP-X (I -1 ) ) XP-X <1-1 ) ) * t Xf I )-XP) 05990 

FN = 0.0 05000 

15 RETURN 05010 

END 05020 
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I FOR DCCn I S .DCCDI S 

su rr Out imf nccnis ( xx , yy. 7.1 , b t m , n, fn ) 04820 

DIMENSION R(??.l?),XX(l?.l?),YY(l?,12) t ZZ(12) 04 8 30 

DIMENSlflM A{ 22,4) ,x ( 121 ,Y( 1 ?) 04840 

L=2*M-2 04850 

DO 13 1=1. M 04860 

DO 10 J = ] « N 04870 

X ( J ) = X X ( J , J } 04880 

10 Y ( J ) = Y Y ( J . I ) 04890 

call cr.nis (x.y.a.n.fn) 04900 

nn 1 ? k= 1 , i. 04910 

1? RIK.I)-A(K.I) 04920 

n CONTINUE 04930 

RETURN 04940 

END 04950 


I F0& DrOIS.DCDIS 

SIIRRUUT INF ncn I s ( B . X X ,YY , Z Z .XP.YP.ZP.M.N.FN) 04 960 

D1MENMUN A { 22 . 4 ) .X ( 12) , Y ( 12) 04970 

DIMENSION 8(22.12) ?XX( 12*12) ,YY(12»1?).ZZ( 12) 04980 

L=2*N-2 04990 

DO II 1=1, M 05000 

DO 9 K=1 ,L 05010 

9 A ( K , 1 ) =8 ( K . I ) 05020 

DO 10 J~ l , N 05030 

X ( J ) = X X { J . I ) 05040 

10 Y ( j) - Y Y (,!,[) 05050 

CALL CDIS(A,X,Y.XP,A(I.2),N.FN) 05060 

11 CONI' INI/F 05070 

DO 1 ? K= 1 ,M 05080 

12 Y ( K ) = A ( K , 2 ) 05090 

CALL CCDIS (ZZ.Y.A.M.FN) 05100 

CALL CDIS ( A.ZZ.Y.ZP.YP.M.FN) 05110 

RETURN 05120 

END 05130 
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APPENDIX D 

PERFORMANCE COMPUTER PROGRAM 


This Appendix presents a description of the performance computer 
program. Section 1, Program Abstract, gives a brief summary of the 
program's purpose and application and shows the calculation sequence. 
Section 2, Input Data List, gives a definition of the symbols used in 
the input data block and the format for the data cards. Section 3, Uutput 
Data List, gives a similar definition of the data output from the 
calculations. Section 4, Program Listing, gives a listing of the main 
computer program. The complete program must also be supported with 
subroutines as follows: RADP, described in Appendix F, for calculating 

the radiator performance, FRIC, listed in Appendix C, to calculate the 
liquid friction in the wick and the fluid property subroutines listed 
in Appendix C. Section 5, An Example Case, gives the input data and 
output results for a sample case. 


161 
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1 . PERFORMANCE PROGRAM ABSTRACT 


The performance program was written for the purpose of calculating 
the performance of a series combination of capillary pumped heat 
rejection loops connected to the condenser tube of the secondary loop in 
the ARCPS. The pumper loops are those designed by the design program. 

The program calculates the steady state thermodynamic and hydrodynamic 
balance existing in each heat rejection loop, using as boundary conditions 
the state of the condensing potassium of the power conversion on the hot 
side and space temperature. 


The calculations begin with the state of the 
stream as it leaves the turboalternator. As heat 
rejection loop, the program calculates the change 
for calculations to begin on the following pumper 


condensing potassium 
is removed by each heat 
in the potassium state 
loop. 


The program calculation sequence is shown in the following block 
di agram: 


lt‘2 


II 













2. INPUT DATA LIST 


The following table summarizes the data cards and defines the terms 
used in the input data block. 
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LIST OF SYMBOLS USED IN DATA BLOCK 


SYMBOL 

DESCRIPTION 

UNITS LIMIT 

CARD 1 (12A6) 



ANOTE 

Any comment may be typed in Col. 1-72. This comment 
will be printed on each run. 


CARD 2 (8E9.4) 



HC 

Condensation coefficient 

Btu/hr-ft 2 -°F 

DX 

Thickness of metal between power conversion loop and 
capillary pump. 

ft 

XKS 

Thermal conductivity of metal between power conversion 
loop and capillary pump. 

Btu/hr-ft-°F 

TA 

Temperature of potassium in power conversion loop at 
start of capillary pump heat rejection area. 

°F 

CARD 3 (E9.3.7F9 

Jl 


QTOT 

The initial guess of total heat to be rejected by the 
capillary pumped radiators. 

Btu/hr 

A 

Area of capillary pump liquid to vapor interface 
(screens) plus area of distribution manifolds (area 
is normal to heat flow). 

ft 2 

TV 

Initial guess of capillary pump temperature at liquid 
to vapor interface. 

°F 
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LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL DESCRIPTION UNITS 


DXF Thickness of liquid metal in capillary pump measured ft 

from metal to liquid vapor interface. 

CARD 4 (E9.4 ,19 ,6E9.4) 

W Capillary pumper flow rate Ib/hr 

I Trigger to signal choice of capillary pump working 

fluid (l=Na, 2=k, 3=Ce). 


Dl 

Capillary pump vapor tube 

ID 

ft 

D2 

Capillary pump liquid tube 

ID 

ft 

CARD 5 (E9.3.7F9.4) 



R 

Capillary screen effective radius. 

ft 

GEE 

Acceleration due to gravity 


ft/sec 

CARD 6 (8E9.4) 




XLIQ 

Thickness of capillary pump 
wall 

to radiator liquid tube 

ft 

XVAP 

Thickness of capillary pump 
wall 

to radiator vapor tube 

ft 


LIMIT 
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LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL DESCRIPTION 

XPIPL Length of capillary pump to radiator liquid tube 

XPIPV Length of capillary pump to radiator vapor tube 

DENM Density of stainless steel 

CARD 7 (8E9.4) 

QUAL Quality of potassium in power conversion loop at start 

of capillary pump heat rejection area. 

XLD Length of the long side of the rectangular power 

conversion loop condenser channel. 

WK Potassium flow rate in power conversion loop. 

CARD 8 (E9.4,19»6E9.4) 

PER Percentage of screened area to total area in capillary 

pump 

NUM Number of elements in capillary pumper 

AD Radiator area convergence criteria 

CARD 9 (8E9.4) 

CLENG Length of radiator tube to condense all of the vapor. 

TLTH Radiator tube length 


UNITS 

ft 

ft. 

lb/ft 3 


ft 

Ib/hr 


ft 

ft 


LIMIT 
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LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 


DESCRIPTION 


UNITS 


CARD TO (3E9. 4,415) 


TD 


Convergence criteria for iterations on temperature. 

°F 

WD 


Convergence criteria for iterations on flow rate. 

lb/hr 

QD 


Convergence criteria for iterations on heat flow. 

Btu/hr 

NCC 


Number of iterations (upper limit) before program aborts. 


III 


Program control trigger. If (III < U), program will 
print out intermediate values of selective variables. If 
(III >1), program will not print these variables. 


NLOOP 


Number of capillary pump radiator loops. 

-- 

CARD 11 

(5011) 



IRADOP 

Program control trigger. If IRADOP = 0, the radiator is 
inoperative. If IRADOP = 1 , the radiator is functioning. 


CARD 12 

(8E9.4) 

The number of cards depends upon NLOOP. The number will 
equal the first integer >(NL0QP/8) . 


DPOT 


Length of the short side of the rectangular power 
conversion condenser channel. 

ft 


LIMIT 



3. OUTPUT DATA LIST 


The principal output data is self-explanitory since the names of all 
parameters are printed out in full. This print-out is divided into three 
general groups; the system geometrical parameters, the matched pump loop, 
thermodynamic and hydrodynamic parameters, and the state conditions within 
the power conversion loop. This output is given for each heat rejection 
loop. Table 1 shows the format for this output. 

Table 1 

Capillary Pump - Program 2 

Configuration 


Fluid = Number of Loops 


Temperature at Heat Source 

= 

°F 

Heat Transfer 

Area = 

FT 

Gap Width 
Tubing (Li q ) 

— 

FT 

Capillary Eff. 
Tubing (Vapor) 

Radi us = 

FT 

ID 

= 

FT 

ID 

= 

FT 

Thickness 

= 

FT 

Thi ckness 

= 

FT 

Length 

= 

FT 

Length 

= 

FT 

Matched System Parameters 

N Flow Rate 

Q 


Station Temp. 

Press . 

Density 


2 LB/HR BTU/HR 

0 

1 

2 

3 

Cosine Theta = 

Radiator - Condensing Tube Length = ft. Total Length = ft. 


Power Conversion Loop 


Cap-Pump Loop 

= 




Condenser 





Diameter 

= 

FT 



Flow Rate 

= 

LB/ HR 



Condenser (Cap-P Loop 

Inlet) 


Condenser (Cap-P Loop 

Exit) 

Temperature 

= 

°F 

Temperature = 

°F 

Pressure 

= 

PSI 

Pressure = 

PSI 

Velocity 

= 

FT/HR 

Velocity = 

FT/HR 

Quality 

= 


Quality = 
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The program also prints out, automatically, the input data block. 
The numerical values are printed out in the same order as they appear on 
the input cards, without identifying symbols. Table 2 shows the format 
for this output. 

Table 2 


HC 

DXS 

XKS 

TA 





QTOT 

A 

TV 

DXF 





W 

I 

Dl 

D2 





R 

GEE 

XMTOT 






XLIQ 

XV AP 

XPIPL 

XPIPC 

DENM 




QUAL 

XLD 

WK 






PER 

NUM 

AD 






CLENG 

TLTH 







TD 

WD 

QD 

NCC 

III 

NLOOP 



IRADOP(II) ,11=1 

,NLOOP 






DPOT(I) 

,1=1 ,NLOOP 






RHOL 

CONL 

CONH 

RHF 

RHT 

CONF 

SUFT 

ACONE 

R 

GAMMA 

VISV 

HFG 

CL 

EMM 

TS 

VISL 

RHFO 

CONFO 

THKR 

DCONE 

CODF 




TUBN 

DI 

TFIN 

TLTH 

ANGLE 





The program may also be requested, by setting III = 0, to print out 
intermediate values of system parameters and fluid properties for diagnostic 
purposes. 

The main program has a number of error statements which are printed 
out when the program has trouble completing its mission. These statements 
are as follows: 

1. Program limit (JC or IC) has been exceeded. 

2. Radiator - blow thru of vapor at match PT. 

3. Inlet velocity GT Mach 1 at match PT. 

4. Selected range of W insufficient to obtain Match Point. 
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5. Initial guess of W is too high to obtain Match Point. 

6. Program will not converge during the iteration of loop 

7. Program will not converge on TV. 

8. Program will not converge on TB. 

9. Pumper will not pump. COSINE Theta = 

10. All the vapor has been condensed. 

11. Program will not converge. 
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I FOR MAIN, MAIN 


C 

C CAPILLARY PIJMP PROGRAM NUMBER 2 

C THIS STEADY STATE PROGRAM COMPUTES THE PERFORMANCE 
C OF N CAPILLARY PUMPED LOOPS 
C 

DIMENSION XI 0(24) ,Y1 0(24) ,A1 0(46,4) 

DIMENSION XIB (24) ,YI3 (24) ,A13 (46,4 ) 

DIMENSION All (46',4) ,WSYS(34) ,DLENG( 34) 

DIMENSION PVAP ( 30) , DENV ( 30) 

DIMENSION ANOTE (12) 

DIMENSION 0( 150) , IR ADOP ( 150) 

DIMENSION D PO T ( 15 0) 

DIMENSION T GUESS (15 1) 

REAL LENGTH 
C 

C CURVE 13 IS SATURATED TEMP OF K AS A FUNCTION OF PRESSURE 
C RANGE OF CURVE IS T=1000 F TO 1360 F 
C 

N 1 3= 1 2 

DO 6 K = 1 »N 1 3 

Y13(K)=FL0AT(K) *30, +1000. 

6 X 1 3 ( K ) =PV ( 2 , Y 1 3 ( K ) ) 

CALL CCDIS ( X13, Y13, A13,N13,FN) 

I F ( I I I - 1 ) 7,8,8 

7 WRITF(6,361) ( X 1 3 ( K ) , Y 1 3 ( K ) , K= 1 , 1 2 ) 

WRITE (6,201) ( A13(K,1) ,K = 1,46) 

8 CONTINUE 
C 

N 1 0= 1 0 

DATA ( X 1 0 ( II) , Y 1 0 ( II) * I 1*1, 1 0) /. 01. 1.35 » .02,1 .*5,. 04 ,1.6, 
XO. 08, 1.77,. 10, 1,85,. 20, 2. 2,. 4, 2. 8,. 60, 3. 3,. 80, 3. 7, 1.00, 4.0/ 
CALL CCDIS (X10,Y10,A10,N10,FN) 

C 

C NUMBER OF CAP-PUMPER LOOPS LIMITED TO 150 
C 

14 RF AD ( 5 ,200) ANOTE 
WRITE(6,206) 

READ(5 ,201) HC,DXS,XKS,TA 
RE AD (5, 2 02) OTOT , A , T V , DX F 
READ( 5 ,203) W , I ,D1 ,D 2 
RE AD (5, 20 2) R,GEE,XMTOT 

READ(5 ,201) XLIO ,XVAP »XPIPL,XPIPV , DENM 
RE AD (5, 201) DUAL , X L D , WK 
READ ( 5 ,203) PER ,NUM , AD 
R E AD (5,201) CLENG, TLTH 
READ(5,207)TD,WD,0D,NCC,III ,NLOOP 
RE AD (5, 2 04) ( IRADOP( I I ) , I I = 1 , NLOOP ) 

READ(5,201) ( DPOT ( N ) ,N=1 .NLOOP) 

WRITE (6,206) ANOTE 
WRITE < 6,208) HC,DXS,XKS,TA 
WRITE (6,208) OTOT , A , TV , DX F 
WRITE (6,2 09 ) W , I ,D1,D2 
WRITE (6,208) R ,GEE , XMTOT 
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n o 


WRITE (6,208) X L 1 0 , XV AP , X P I PL , X P I P V , DENM 

WRITE ( 6 ,208) DUAL ,XLD ,WK 

WRITE (6, 209) PERANUM, AD 

WRITE ( 6,208) CLENG,TLTH 

WRITE (6,210) TD,WD,QD,NCC, I I I , NL00P 

WRITE ( 6,211 ) ( I R ADOP ( II), I 1 = 1 ,NLOOP) 

WRITE (6, 2 12) (DPOT(N) ,N=1,NL00P) 

RADIATOR DATA IS READ IN HERE. 

CALL R AD P ( 0 • t 0 • t 0 • , 0 * , 2 * fO»tO»?OtfOfO# ) 

71 A 1 = 0 • 7854^0 1 £#2 . 

A2 = 0. 7854*D2**2. 

S PR A = 5 .44 

AHT= A 
KC = 0 

DO 90 N=1,NLO0P 
ARE A= X LD *DPOT (N) 

WP = 2 . * ( XLD+DPOT (N) ) 

D A=4 .*AREA/WP 

I F ( I R ADOP ( N ) . GT * 0) GO TO 4 
OUE =0 . 

0 ( N ) =0. 

GO TO 80 

4 CONTINUE 

IF(KC.GT.O) GO TO 83 
FAC 1 = 0*805 
MM = 0 

T SUB= 1 00. 

QUE=QTOT /FLOAT <N LOOP) 

0 1 =01JE 
83 CONTINUE 

DO 20 JJ=1,NCC 
IF(KC.GT.O) GO TO 34 
TK = T A-QIJE / ( HC * A* P E R ) 

T I=TK-<OUE*DXS) / (XKS*A*PER) 

DO 73 J= 1 , N C C 

U F= 5K F ( I,< (Tl+TV) /2.) ) /DXF 
TV1=T!-0UE/ ( A*PER*UF) 

TVD={ TV1-TV) 

IF < ABS ( TV 1-TV) * LT *TD) GO TO 5 
T V = T V 1 

IF <111-1)72,73,73 

72 WRITE ( 6,250) J,UF,TV1 ,TVD, TV 

73 CONTINUE 
WRITE (6,382) 

GO TO 14 

5 T V= T V 1 
34 CONTINUE 
33 L = L + 1 

I F ( KC • EQ. 0 ) GO TO 10 
IF(L.LT.NCC) GO TO 35 

WRITE ( 6,384) L , TV , TGUE SS ( L ) , OUE, OR AD, W 
WRITE (6,385) 
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non 


GO TO 14 
35 TV=TV— XINCR 
T GUESS ( L ) =TV 
I F ( KC . EO. 2) GO TO 108 
49 CONTINUE 

XKF=SKF ( I ,TV) 

UF=HC*XKS*XKF/ ( DXF*HC*XKS+XKF*XKS+DXS*XKF*HC ) 

A= OUE / (IJF*(TA — TV) *PER) 

ASUBK= AHT-A 
DO 17 J= 1 , NCC 
U=SKF( I,((TI+TV)/2.) ) /DXF 
T I l = TV + 0U6/( A*PER*U) 

I F < 111-1)63 ,64,64 

63 WRITE<6,393) J , T 1 1 , T I ,U, TV 

64 CONTINUE 

I F ( ABS ( T I 1 — T I ) ,LT,TD) GO TO 18 
T I =T 1 1 

17 CONTINUE 
WRITE I 6,390) 

GO TO 14 

18 CONTINUE 
T I =T I 1 

108 CONTINUE 

IF(KC.EQ.2) ASUBK= AHT 

DO 19 J= 1 ,NCC 

CP = C PL (2, ( (TA + TB) /2.) ) 

XKLM = SKF(2»( (TA+TB) /2.) ) 

HC0NV=XKLM*7. 20/DA 

XXK = SKF ( I ,( (TA+TB+2.*TV) /4.) ) 

U=l./ ( ( 1 . /HCONV ) +(DXS/X£S)+(DXF/XXK) ) 
TR1=(2.*WK*CP*T A + 2 . *U* A SUBK *PE R*T V-U* ASU BK*PER*T A ) / 
X (IJ*ASUBK*PER + 2.*WK*CP) 

IFIABS(TBl-TR) .LT.TD) GO TO 9 
TR = TB 1 

19 CONTINUE 

WR ITE(6,391) 

GO TO 14 
9 CONTINUE 
TB=TB 1 

OSEN=WK*CPL < 2, ( (TA+TB) /2.) )*(TA-TB) 

T I SC= ( OSEN*DXF / ( XXK* ASURK ) ) +TV 
I F ( I 1 1 — 1 ) 86,87,87 

86 WRITE ( 6,389) TV,A»XKF ,QUE ,TA 
WRITE (6,402) 0 SEN , TB , WK , ASUBK , U, C P 
WRITE ( 6,403) XKLM, HCONV 

87 CONTINUE 
10 CONTINUE 

ITERATION TO FIND W MATCH 

CP = CPL ( I , ( T V- ( T SUB /2 * ) ) ) 

HHVX=HVX( I , T V ) 

P VA P2 = PV ( I , T V ) 

HVAP2 = HS AT ( I , TV ) +HV X ( I , TV ) 
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HL 2 = HS AT ( I , TV ) 

DEN V2=RH0V ( I -TV) 

S I G2= S I G( I , TV ) 

IF ( I I I - 1 ) 74,75*75 

74 WRITE (6,251) PVAP2 » TV, HV AP2 , HL 2 , DENV2 , S I G2 

75 CONTINUE 
IC = 0 

JC = 0 
JCC=0 
M = 0 

98 CONTINUE 
FAC = F AC 1 

50 FAC=FAC-. 00491667 
GO TO 52 

51 FAC=FAC+0.005 

52 CONTINUE 
IC=IC+1 

IF( IC.GT .NCC) GO TO 91 
57 W=FAC*Q1/ ( HHVX+CP*T SUB) 

53 CONTINUE 

IF (III-l) 36,37, 37 

36 WR ITE ( 6 t 365) CP, W, FAC 
WR I TE ( 6, 366) IC,M,JC 

37 CONTINUE 
NN= 1 0 

PVAP ( 1 ) =PVAP2 
DENV ( 1) =DENV2 
XMUV2 = XMUV (I, TV) 

XVAPP=XVAP/FLOAT (NN) 

DO 76 J=1,NN 

DPVAP=0.263E— 1 1 * ( XMUV2**0.25) * ( ( W/A2 ) **1. 75 ) *XVAPP/ ( DENV ( J )*D2 
1**1 .25) 

PVAP(J+1) = P V AP ( J ) -DPVAP 

DENV ( J+l ) =RHO ( I ,TV,PVAP( J+l) > 

76 CONTINUE 
PT3=PVAP (NN+1 ) 

DENV3=DENV(NN+1) 

T IN = T V +460 . 

WRAD= W/60. 

CALL RADP(T IN ,PT3 ,WRAD,1 . , 1 . , I I I ♦ T , PTOUT , CONDL , ERR ) 

T L 1 = T— 460. 

IF ( I I I — 1 ) 38,39,39 

38 WR ITE(6,367) T , PTOUT, PT3 , ER R 

WRITE ( 6,394) TV, CONDL , CL ENG ,TLTH ,WR AD 

39 CONTINUE 
IFIT.LT.O.) GO TO 51 
IFIERR-l.) 54,55,55 

55 JC=JC+1 

I F ( JC.GT.9.AND.M.GT.1) GO TO 92 

IF(JC.LT.IO) GO TO 50 

IF(JCC.FO.IO) GO TO 92 

FAC 1=FAC1— .1 

JCC=JCC+1 

GO TO 98 
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54 CONTINUE 
M = M+ 1 
WSYS (M) = W 

DLENG ( MI =CONDL— CLENG 
I F(DLENG(M) .GT .0.) GO TO 56 
IF (M.E0.31) GO TO 95 
FAC=F AC+0.03 
JC = 0 

GO TO 57 

95 WRITF(6,373)M,WSYS(M) , F AC , D L ENG ( M ) 

GO TO 14 
56 CONTINUF 

I F ( I I I -1 ) 2 R ,29 f 29 

2 R WRITF(6,36R) 

DO 31 MC=1,M 

31 WR ITF ( 6,369) MC»DLENG(MC) , CLENG, WSYS(MC) 

29 CONTINUF 

I F ( M - 3 ) 43,44,44 

43 WRITE(6,374)M,FAC 
IFIMM.LT. 5) GO TO B5 
WRITE(6,407) MM , F AC , W , DL ENG ( M ) 

GO TO 14 

85 CONTINUF 
MM=MM+ 1 
FAC 1 =F AC 1 - . 1 
GO TO 49 

44 CONTINUE 

CALL CCDI. SIDLENG, WSYS, All, M,FN) 

CALL C D I S ( A 1 1 ,DLENG,WSYS,0.,W,M,FN) 

DO 58 J= 1 ,NN 

DPVAP=0.263E-11* ( XMUV2**0. 25 ) * ( (W/A2)**1.75)*XVAPP/(DENV(J) *D2 
1**1.251 

PVAP( J+l ) = P V AP ( J) -OPVAP 
DENVI J+l) =RHO( I ,TV,PVAP( J+l) ) 

58 CONTINUE 

P T 3= PV A P ( NN + 1 ) 

WRAD = W/60 . 

CALL RADP ( T IN;PT3, WRAD, 1. , 1. , I II ,T, PTOUT, CONDL , ERR ) 

IF (ERR.EO.l) GO TO 93 
IF (FRR.E0.2) GO TO 94 
T OUT = T —46 0 4 

OR AD = W* ( HVX ( I ,TV) +CPL ( I , ( (TV + TOUT ) /2. ) ) * ( TV-TOUT ) ) 

IF ( 1 1 1-1 1 15,16,16 

15 WRJTE(6»370) PT3 , W , TOUT , OR AD, DUE , PTOUT 
WRI TE ( 6,395 ) TV , CONDL , CLENG, TLTH 

16 CONTINUE 
IF(KC.EO.O) GO TO 84 
OSUM=OUF+OSEN 

I F ( KC .EO .2) OSUM=OSEN 
I F ( I I I — 1 ) 11,12,12 

11 WRITE ( 6,384) L ,TV ,T GUE SS ( L ) ,OIJE , OR AD ,W 
WRITE (6,404) OSUM,OSFN 

12 CONTINUE 

I F ( ARS ( OSUM-OR AD ) .LT.OO) GO TO 60 
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IF( (OSUM-QRAO) •GT.O.) GO TO 3? 

GD TO 20 

32 X I NC R = X I NC R / 2 . 

T V = T GU E S S ( L — 1 ) 

GO TO 35 
84 CONTINUE 

IF ( A R 5 (OIJE-QRAD) .LT.OD)GO TO 25 
OUE = QR AD 
20 CONTINUE 

WR I T E ( 6 , 376 ) JJtNCCtN 
GO TO 14 
50 CONTINUE 
25 CONTINUE 

XMIJL 1 = XMIJL < 1 , T 0 U T ) 

RHOL 1 = R HO L ( I , T OUT ) 

DPLIQs=0.263E-ll*(XMULl**0.25J*< (W/Al ) ** 1 . 7 5 ) * X L I 0 / ( R HOL 1 * D 1 * * 1 .25) 
P T 1 = P TOUT -DP L 10 
PT 0 = PTOUT 

PL 1 =PTl-< / ( RHOL 1*A1 **2.*602. F +08 ) ) 

T SU R-T V -TOUT 
IF(KC.EO.O) GO TO 59 

IF{KC.EQ.1)TAVG=(TI*A+TI SC*A SIJBK) /AHT 
I F (KC.EO. 2) T A VG= T I SC 

XFRIC = FRIC< AHT f DXF , T AVG ,T V ,TSUR * PER » NUM , I) 

GO TO 69 
59 CONTINUE 

XFRIC = FRIC ( A i DXF , T I , T V , T SU R , P E R , NUM , I ) 

69 CONTINUE 

CAP=PVAP2-PLl + < ( <1./<DENV2*A 2**2. ) ) - ( 1 . / ( RHOL 1 * A 1 ** 2 ) ) ) * ( W**2 ) 

X/4. I8E + 08) /144. + XFRI C 
COST H=C AP*R*72. /SIG2 
I F ( I I I -1 ) 65 ,66 ,66 

65 WRITE (6,396) XFRIC, CAP, XMIJL I , R HOL 1 T OPl IQ,PT1 
WRITE (6,397) PTOUT ,PLlfTSUR,CnSTH,R,SIG2 

66 CONTINUF 

I F( COSTH.GT .1 .) GO TO 22 
80 CONT INUE 

POWER CONVERSION LOOP PIPE LOSES ARF COMPUTED HFRP 

LFNGTH=AHT/ ( 2.*XLD) 

IFIKC.E0.2) GO TO 101 

VFL=(WK/AREA)*(< 1-QtJAL) /RHOL < 2, T A ) +OUAL/RHOV ( 2, T A ) ) 

VE L V = 1 .0*VEL 

T P R E S A = SPRA+ ( < WK / AR E A ) ** 2* ( < < l.-QUAL ) /RHOL ( 2,TA ) )+ (OUAL/ 

XRHOV ( 2 tT A) ) ) ) / (4.18T; + 08*144.) 

THE T A= S I G ( 2 <, T A ) *4 . 1 RE + 08 / ( XMUV { 2 , T A )*VEL > 

I F ( THETA .LF .57 .23) GQ TO 40 

I F ( THFTA. GT.57.23.AND.THETA.LT .327.5 ) GO TO 41 
CF = 0 . 02 
GO TO 4/ 

40 C E = 0 • 1 
GO TO 42 

41 C F = 4 . 182/T HET A£*0.9225 
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4? CONTINUE 

FL nWL= ( 1 .-QIJAL) *WK 
FL C1WV = ( QIJAL ) *WK 

DPOL V=3. 1 *CE* < XMIJV (2,TA)/3ftOO.) **0. 2* ( FL0WV/3600. )**i . 8/ 

X (DA**4 ,8*( RHOV ( 2 * T A) ) *3 2 . 2 ) 

X T T SQ= ( ( FLOW L /FLOW V) **1 .R) * ( RHOV ( 2 , T A ) /RHOL ( 2,T A ) ) * 

1 ( (XMIJL(2,TA) /XMUV ( 2 ♦ TA ) ) **0.2) 

X T T= S OR T ( XTTSQ) 

CALL CDIS(A10,X10,Y10,XTT f PHIG,N10,FN) 

0P0LF--nPDLV*PHlG**2. 

S VG = 1 ./ ( RHOV ( 2 » TA) ) 

S V L = 1 ./ (RHOL ( 2 * T A ) ) 

G= ( WK/ARF A) 

TR = T A 

DO 4ft J= 1 ,NCC 

QUALB=QUAL- ( QUF/ ( HVX ( 2,T A) *WK))+(CPl(2,TA)*(TA-TB))/(HVX(2,TA)) 
DPA=(WK/AREA) **?.*(( (1 ,-QUALR) *(1./RH0L(2,TB)) +OUALB*( 1 ,/RHOV( 2 f TB 
X) ) ) - ( ( 1 .-DUAL ) * < U /RHOL ( 2,TA) ) +QUAL* ( 1. /RHOV ( 2, TA ) ) ) ) /4. 1 8E + 0B 
DP = (DPf)LF -LENGTH) -DP A 
TPRESB"TPRE c iA + ( D P / 1 4 4 . ) 

I F ( I I I -1 ) ft 1 ,62 .62 

ftl WRITE(6Dftfi)XTTS0,DP,PHIG,DPDLF,DPDLV 
WR II M ft ,359) TPRF SA ,TPRESB,THET A ,VEL »CE 
ft? CONTINUF 

VELR=(WK/AREA)*(( 1 -QIJAL B) / RHOL ( 2 , T B ) +QU A L B /R HO V ( 2 , TB ) ) 

VF L R V= 1 . 0 * V E I. R 

SPRR=TPRESft-((WK/AREA)**?*(((l ,-OUALB) /RH0L(2,TB))+(QUALB/ 

XRHOV ( 2 » TR ) ) ) ) /(A. 18E+08*! 44 . ) 

CALL GDI S( A 1 3 , X 1 3 »Y13*SPRB»TR1 , N 1 3 » F N ) 

IF (ARS(TBl-TB) .LT.0.1) GO TO 4 7 
I F ( I r I -I ) 48 ,45 ,45 

48 WRITE (ft, 0916) J , T R 1 , T B , VE L R , S PR B 
4 5 R L G = 1 . 0 

IF(ABS(TR1-TR) . GT . ?0 . ) R L G= 0 . 3 
TR= ( 1 ,-RLG) *TB+RLG*TB1 
4ft CONTINUE 

WRITE ( ft ,9917) J ,TR ,TB1 
GO TO 14 
47 T R = T R 1 

IF(KC.EQ.O) GO TO 68 
QUALB = 0 . 

T R PR = T B 

DO 2ft J= 1 ,NCC 

C P = C P L ( 2, ( ( TBPR + TB) /2. ) ) 

XKLM=SKF(?.( (TRPR+TB) /2.) ) 

HC0NV=XKLM*7. 20/DA 

XXK=SKF { I , ( (TRPR+TB+2.*TV)/4.)) 

U= 1 ./ < < 1 . /HCONV) + (DXS/XKS) + (OXF/XXK ) ) 

AC.ONV = AHT-A 

TR 1 = ( 2.*IJ*ACONV*PER*TV+2.*WK*CP*TBPR-U*ACONV*PER*TBPR ) / 

X (IJ*AC0NV*PER + 2.*WK*CP) 

I F ( I I I - 1 ) 77,78,78 

77 WRITE ( ft, 398) CP , XKLM , HCONV ,U , A , ACONV 
WR ITE I ft, 399) TB1 ,TRPR,TV, WK 


178 



78 CONTINUE 

IF(ABS(TB1-TB) .LT.TD) GO TO 27 
TB=TB I 

26 CONTINUE 

WR I TE ( 6 » 39 1 ) 

GO TO 14 

27 CONTINUE 
TB=TB 1 

QSEN=WK*CPL ( 2, ( (TB+TBPR) / 2. ) ) * (TBPR-TB ) 

Q ( N ) =OUE+OSEN 

VELB=(WK/AREA) * ( ( 1-OUALB) /R HOL ( 2 , T B ) +OU AL B /RHOV ( 2 , T B ) ) 

VELBV=1 .(K-VELB 

XXM(J = XMIJL ( 2, ( (TA+TB) /2.) ) 

RHOK = RHOL ( 2 , ( ( T A + TB ) / 2 . ) ) 

LENGTH=ACONV/ ( 2.*XLD) 

DPKLIQ = 0 .263E-1 1=M XXMU**0.25) * (WK/ARE A) .75* LENGTH 
X / ( RHOK^D A** 1.25) 

TPRESB=TPRESB-DPKL IQ 

SPRB=TPRE SB— ( ( WK / ARE A ) **2 ) * ( ( 1-OUALB ) /RHOL ( 2 , TB ) + QUAL B/RHOV ( 2,TB) ) 
X / ( 4 . 1 BE 8* 144 ) 

I F ( I I I - 1 ) 88,89,89 

88 WRITE (6,390) OSEN ,WK ,T A ,OUE ,TR1 , TBPR 

89 CONTINUE 

DUE =OUE + OSEN 
KC = 2 
L = 1 

X I NC R = 40. 

T GUESS ( 1) =TV 
GO TO 96 

101 CONTINUE 
QUALB=0. 

TB = T A-20 . 

DO 102 J= 1 , NCC 

CP = CPL l 2 , ( (TA + TB) /2.) ) 

XKLM=SKF(2, ( (TA+TB) / 2 . ) ) 

HCONV = XKLM£7 ,20/DA 

XX K = SKF ( I , ( (TA+TB+2.£TV) /4. ) ) 

U = 1 ./( ( 1 ./HCONV) +(DXS/XKS)+(DXF/XXK) ) 

TB 1= < 2.*U*AHT'*PER*TV+2.*WK 

1 =*=C P^T A-U* A HT £P ER *T A ) / 

2 (U*AHT*PER+2.*WK*CP) 

I F ( I I I -1 ) 103,104,104 

103 WRITE (6,398) CP » XKLM , HCONV »( / , A , AHT 
WRITE ( 6,405) TB1 ,TA,TV,WK 

104 CONTINUE 

IF( ABS(TBl-TB) .LT.TD) GO TO 105 
TB = TB 1 

102 CONTINUE 
WRITE (6,391) 

GO TO 14 

105 CONTINUE 
TB=TB 1 

QUE=WK*CP*(TA-TB) 

0 ( N ) =OUE 


I 
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VELB=( WK/AREA) *( ( 1-01) ALB) /RHOL ( 2 , T B ) +QU A L B /RHOV ( 2 , TB > ) 

V E L R V = 1 , 0 * V E L R 

IF( I I 1-1 ) 106, 107 , 107 

106 WRITE (6,406) OUE , WK , TA , TR , CP 

107 CONTINUE 

TPRESA=SPRA+( (WK/AREA) **2) *( ( 1-OUAL ) /RHOL ( 2 » T A ) +OUAL / RHOV ( 2 , T A ) )/ 
X(4.1RER*144) 

XXMU= XMUL ( 2 , ( ( T A + TB) /?..)) 

R HOK = R HO L ( 2 , < ( T A + T R) / 2 . ) ) 

DPKL I 0=0. 263E-1 1 *1 XXMIJ**0.25> * ( WK / ARE A ) ** 1 . 75 *L ENGTH 
X / ( RH0K*DA**1 .25 ) 

TPRESB^TPRESA-DPKL I O 

SPRB = TPRESB-( (WK/AREA) **2)*(( 1-OUALB) /RHOL ( 2 , T B ) +QU A LB /RHO V ( 2 , T R ) ) 
X / ( 4 . I 8 E R* 1 44 ) 

GO TO 9 A 
6R CONTINUE 
0 ( N ) = OUE 

QSEN=CPL(2, ( (TA.+ TB) / 2 . ) ) * (TA-TR) *WK 
QCONO=OUE-OSEN 

OUALR=OUAL-(OCOND/(HVX(2, ( (TA+TB) /2. ) ) *WK ) ) 

I F ( OUALB .LT .0 .001 . ANO.OUALR.GT.O. ) GO TO 110 
I F (OUALR.GT.O. ) GO TO 94 
KC= 1 

I F ( I I I .E0.2) I 11 = 0 
L = 1 

X I NCR = 40. 

T GUESS ( 1 ) =T V 

0(JE = 0UAL*WK*HVX ( 2, T A) 

I F ( I I I -1 ) 23 ,24 ,24 

23 WRITF(6,400) 

WR I TE ( 6 ,401 ) OUAL , OUALB 

24 CONT 1 NUE 
GO TO R 3 

1 1 0 CONT INUE 
K C = 2 
L = 1 

X INC R =40 . 

TGUFSS ( 1 ) =TV 
OU A L B = 0 . 

96 CONTINUE 

WRITE (6,240) 

WRITE(6,241)I,NL00P,TA,AHT,DXF,R 
WRITE(6, 242)01 , D2»XPIPL,XPIPV, XL IQ, XVAP 
WRITE (6,243) 

WR I TE ( 6,9922) 

WRITE(6,352) N , W, OUE , TL 1 , P TO , R HO L 1 

WRITE ( 6,353) TL1 ,PT 1 ,RH0L1 

WRITE (6,354) TV, PVAP2,0ENV 2 

WRI TE ( 6,355 ) TV ,PT3 ,DENV3 

WR I TE (6,9923) COSTH 

WRITE ( 6,9924) CL ENG,TLTH 

WRITE (6,9918) 

WRITE (6,9919) N,DA,WK 

WRITE (6,9920) T A , T R , S PR A , S PR R 
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O o onn non 


WRITE ( 6,9921 ) VE L V , VE L B V , QIJ AL , OU AL B 

RESET CONDITIONS AT INLET TO NEXT CAPILLARY PUMPED LOOP 

S PR A= S PRB 
DUAL = OU A L B 

CALL CD I S < A 13 , X13, Y 1 3 , SPR A , T A , N 1 3 , FN ) 

IFIKC.LT.2) GO TO 90 
L = 1 

X I N CR = 40 • 

T GUESS ( 1) = TV 
T A = TB 
VE L = VEL R 
VE L V=VEL BV 

90 CONTINUE 

END POWER CONVERSION LOOP COMPUTATIONS HERE 

OTOT = 0. 

DO 81 N= 1 tNLOOP 
81 OTOT = OTOT + Q ( N ) 

WRITE ( 6,356) OTOT 
GO TO 14 

93 WR ITE(6,371) TV,W 
GO TO 14 

94 WRITE ( 6,372) TV V W 
GO TO 14 

91 WRITE ( 6, 36 2) I C , F AC , W , T SUB , QUE , ERR 
WRITE (6,364) 

GO TO 14 

22 WRITE ( 6,392) COSTH 
GO TO 14 

92 WRITE (6,363) JC,FAC,W,ERR,TV,PT3 
WRITE (6,364) 

GO TO 14 


200 FORMAT (12A6) 

201 FORMAT (8E9.4) 

202 FORMAT <E9.3,7F9.4) 

203 FORMAT ( E 9 . 4 , I 9 , 6E 9 . 4 ) 

204 FORMAT (5011) 

206 FORMAT ( 1HU12A6) 

207 FORMAT (3E9.4,4I5) 

208 FORMAT ( 1H ,8E11.4) 

209 FORMAT ( 1 H , E 1 1 .4 , I 1 1 , 2E 1 1 • 4 ) 

210 FORMAT ( 1 H , 3 E 1 1 • 4 , 3 I 1 1 ) 

211 FORMAT ( 1 H ,5011) 

212 FORMAT ( 1H , 8E 1 1 .4 , / , ( 1 X , 8 E 1 1 * 4 ) ) 

239 FORMAT ( I5/(8E9.4) ) 

240 FORMAT ( 1 H 1 , 3 9 X , 28HC AP I L L AR Y PUMPER - PROGRAM 2 ,/) 

241 FORMAT ( 1H , 6X , 1 4H CONF I GUR AT I ON / 20X , 5HF LU I D , 24X , 1 H= , 1 1 X , I 2 , 
1 7 X , 1 5HNUM BE R OF LOOP S , 9X , 1 H= , 1 1 X , I 2 , / 2 OX , 

230HTEMPER ATURE AT HEAT SOURCE =,F13*5,2H F,5X, 
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318HHEAT TRANSFER AREA ,6X , 1H= ,4X ,F9 .5 , 6H SO FT , /20X ,9HGAP WIDTH, 
X 1 B X ^ 

42X,1H=,5X,F8.5 ,3H FT ,4X , 25HCAPI LLARY EFF. RADIUS =,5X, 

5F8.5 , 3H FT) 

242 FORMAT ( 1H , 19X , 1 2HTUB I NG ( L 1 0 ) , 38 X , 14HTUB I NG (VAPOR),/ 

124X,2HID, 23X, 1 H= ,5X,F8.5,3H F T , 8 X , 2H I D , 1 8X , 1 H = , 5 X , F8. 5 , 3H FT,/ 
224X,9HTHICKNESS,16X ,1H= ,5X,F8.5,3H FT,8X ,9HTH I CKNESS , 1 1 X , IH= , 
35X,F8.5,3H FT, /24X, 6HLENGTH, I9X, 1H=,4X,F9.5,3H FT, 8X, 6HLENGTH, 
414X,1H=,4XF9.5,3H FT/) 

243 FORMAT (1H , 6X , 26HMAT CHED SYSTEM PARAMETERS ) 

250 FORMAT ( 1 H , 2H J= , I 2 ,4E 1 2 .4 ) 

251 FORMAT (IH , 4X , 5HP V AP = , E 1 0. 4 , 7X , 3HT V= , E 10 . 4 , 4X, 6HHVAP 2= , E 1 0 . 4 , 
16X,4HHL2 = »E10.4,4X ,6HDENV 2= , E 1 0 .4 , 5 X , 5H S I G2= , E 1 0 .4 ) 

352 FORMAT ( 1H , 5 X , I 2 , 9X , F 9. 2 , 6X , E 1 0. 4 , 1 OX , 1 HO , 9X , F9. 2 ♦ 7X , F7 . 3 , 

1 TX , E 1 0 .4 ) 

353 FORMAT ( 1 H , 5 1 X , 1 H 1 , 9X , F 9 . 2 , 7X , F 7 . 3 , 7X , E 10 . 4 ) 

354 FORMAT ( 1 H , 5 1 X , 1H2 ,9X , F9 . 2 ,7X , F7 . 3 , 7X , E 1 0.4 ) 

355 FORMAT ( 1H , 5 1 X , 1 H3 , 9X , F9 . 2 , 7X , F7 . 3 , 7X , E 1 0. 4 ) 

356 FORMAT (1H , 6X , 24H SY ST EM HEAT REJECTION = ,E10.4, 

1 1 OH BTU/HR ) 

358 FORMAT ( 1H ,10H XTT S0= , E 1 0.4 , 1 OH DP=,E10.4, 

1 1 OH PHIG=,E10.4,10H DPDL F= , E 1 0 . 4 , 1 OH DPDLV= , E 10.4 ) 

359 FORMAT ( 1H , 1 OH T PR E S A= , E 1 0 . 4 , 1 OH TPRE SB= , E 1 0 .4 , 

1 1 OH THETA=,E10.4,10H VE L= , E 1 0. 4 , 1 OH CE=,E10.4) 

361 FORMAT (1H , 7HX13.Y13 / ( 6E 1 1 .4 ) / ( 6E 1 1 . 4 ) / ( 6E 1 1 .4 ) ) 

362 FORMAT (1H , 6 X , 3H I C= , I 1 0 , 6X , 4HF AC= , E 1 0. 4, 8X , 2HW= , E 1 0. 4 , 

X 5X , 5HT SU B= , E 1 0 .4 ,6X ,4H0UE = , E 1 0 .4, 6X ,4HERR= , E 10 .4 ) 

363 FORMAT (1H , 6X , 3H JC= , I 1 0 , 6X ,4HF AC= , E 1 0. 4, 8X , 2HW= , E 10. 4 , 6X , 

X4HE RR = * E 1 0 .4 , 7X , 3HTV = , E 1 0 • 4 , 6X » 4HPT3 = , E 1 0 .4 ) 

364 FORMAT ( 1 H ,44HA PROGRAM LIMIT ( JC OR IC) HAS BEEN EXCEEDED ) 

365 FORMAT (1H ,6X , 3HCP= ,E 1 0 .4 , 8X , 2HW= , E 1 0 .4 ,6 X ,4HF AC= , E 1 0 .6 ) 

366 FORMAT (1H , 6 X , 3H I C= , I 1 0 , 8X , 2HM= , I 1 0 , 7 X , 3H JC = , I 10 ) 

367 FORMAT ( 1H , 7X , 2HT = , E 1 0 .4 , 4X , 6HPT0UT = , E 1 0 .4 , 6 X ,4HPT 3 = , El 0 . 4 , 
X6X,4HERR=,E10.4) 

368 FORMAT ( 1 H , 8X , 1HM , 9X , 5HDLENG , 1 OX , 5HC LENG , 1 OX , 4HW S YS ) 

369 FORMAT ( 1H , I 1 0 , 5 X , E 1 0. 4 , 5 X , E 10 .4 , 5 X , E 1 0. 4 ) 

370 FORMAT (1H , 5 X , 4HP T3 = , E 1 0 .4 , 8X , 2HW= , E 1 0 . 4 , 5 X , 5HT0UT= , E 1 0 .4 , 

X 5X , 5HQR AD= , E 1 0.4 , 6X , 4H0UE= , E 1 0.4 , 4X , 6HPT0UT= , E 1 0. 4 ) 

371 FORMAT (1H ,42H RADIATOR - BLOW THRU OF VAPOR AT MATCH PT , 
X7X»3HTV=,E10.4,8X, 2HW= , E 1 0 . 4 ) 

372 FORMAT (1H ,36H INLET VELOCITY GT MACH 1 AT MATCH PT , 
X7X,3HTV=,E10.4,8X, 2HW= , E 1 0. 4 ) 

373 FORMAT ( 1 H , 7X , 2HM= , I 1 0 , 2X , 8HW S YS ( M ) = , E 1 0 .4 , 6X ,4HFAC= , E 1 0 *4 , 

X 1X,9HDL ENG (M) =,E 10.4, /, 

X56H SELECTED RANGE OF W INSUFFICIENT TO OBTAIN MATCH POINT. ) * 

374 FORMAT (1H , 2HM= , I 5 ,4 1 H I N I T I AL GUESS OF W IS TOO HIGH TO OBTAIN , 

X18HMATCH POINT. FAC= ,F4.2 ) 

376 FORMAT ( 1 H , 6 X , 3H J J= , I 1 0 , 6X , 4HNCC* , I 1 0 , 5 X , 

X54HPR0GR AM WILL NOT CONVERGE DURING THE ITERATION OF LOOP ,15 > 
382 FORMAT ( 1H ,32HPR0GR AM WILL NOT CONVERGE ON TV. ) 

384 FORMAT ( 1 H ,7X , 2HL= » I 1 0 , 7X » 3HTV= , E 1 0 . 6 , 5X , 5HT ( L ) = , E 1 0 .6 , 

X6X,4HQUE=,E10.4,5X»5HQRAD=,E10.4,flX,2HW=,E10.4 ) 

385 FORMAT ( 1H ,35HPR0GR AM WILL NOT CONVERGE ON TV ) 

389 FORMAT ( 1 H , 6X , 3HTV= , E 1 0. 6 , 8X , 2HA= , E 1 0. 4 , 6X , 4HXK F= , E 1 0 . 4 , 
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X6X,4H0UF= ,F 10.4, 7X, 3HTA=,E 10.4 ) 

390 FORMAT ( 1 H , 4X , 5H0 SEN = , E 1 0 . 6 , 7X r 3HW K = , E 1 0 .4 , 7X , 3HTA = , E 1 0 . A , 

X6X,4H0UF= ,E10.6,6X,4HTB1=,E 10.6, 5 X , 5 H T B PR = , E 1 0 . 6 ) 

391 FORMAT ( 1 H ,32HPROGRAM WILL NOT CONVERGE ON TB. ) 

392 FORMAT ( 1H ,35HPIJMPFR WILL NOT PUMP. COSINE THE T A= ,F6.3 ) 

393 FORMAT ( 1 H , 7X , ?H J = , I 1 0 , 6 X , 4HT I 1 = , E 1 0 . 6 , 7 X , 3HT I = , E 10 . 6 , 

X8X ,2HIJ= , E 10.4, 7X, 3HTV=,E 10. 6 ) 

39 A FORMAT ( 1H , 6 X , 3HT V = , E 1 0 .6 , AX , 6HC0NDL = T E 1 0 . A , 4 X , 6HC LE NG= , E 1 0 . 4 , 
X5X,5HTLTH=,E10.4,5X,5HWRAD=,E10.4 ) 

39 5 FORMAT ( 1IH , 6X , 3HT V = , E 1 0 . 6 , AX , 6HC0N0L = , E 1 0 . A , AX , 6HC L E NG= , E 1 0 . A , 
X5X,5HTLTH=,F10.A ) 

396 FORMAT ( 1 H ,3X , 6H X FR I C = , E 1 0 . A , 6X , AHC A P= , E 1 0 . A f AX , 6HXMUL 1 = r E 1 0 . A , 
X4X ,6HRH0L 1=,E 10.4,4X,6HDPLIO=,E10.4,6X,4HPT1=,E10.4 ) 

39 7 FORMAT ( 1H , AX . 6HP TOUT = , E 1 0 . A , 6 X , AHP L 1 = , E l 0 . A T 5 X , 5HT SUB = , E 1 0 . A , 

X4X,6HCC)STH=,F10.4,8X,2HR=,E10.4,5X,5HSIG2=,E10.4 ) 

398 FORMAT! 1H » 6 X , 3HC P = , E 1 0 . A , 5 X , 5HXK LM= , E 1 0 . A , AX , 6HC0N V = , E 1 0 . A T 

XRX,2HU=,E10.4,8X,2HA=,E10.4,4X,6HAC0NV=,E10.4 ) 

399 FORMAT ( 1 H , 5 X T AHT B 1 = , E 1 0 . 6 , 5 X , 5HT BPR = T E 1 0 . 6 T 7 X , 3HT V = T E l 0 . 6 , 

X 7 X . 3 HWK = * F l 0 • 4 ) 

400 FORMAT ( 1 HO, 33HALL THE VAPOR HAS BEEN CONDENSED. ,/) 

AO 1 FORMAT ( 1 H , AX , 5H0U AL= t E 1 0 . A , AX , 6HQUAL B= , E 1 0. A ) 

AO 2 FORMAT ( 1 H ,AX,5H0SEN=,E10.6,7X,3HTB=,E10.6,7X, 3HWK = , E 1 0 . A , 

XAX , 6HASURK= , E 10. A , 8X, 2HU= ,E10.6,7X,3HCP=,E10.A ) 

A03 FORMAT ( 1 H , AX , 5 HX K LM = , E 1 0 . A , A X , 6HHC0NV= , E 1 0 . A ) 

AO A FORMAT ( IH , A X , 5 HO SUM= , E 1 0 . 6 , 5 X , 5 HO SEN = , E 1 0 . 6 ) 

40 5 FORMATllH , 5 X , AHT B 1 = , E 1 0 . 6 , 7 X , 3HT A= , E 1 0 . 6 , 7X , 3HT V= , E 1 0 . 6 , 

X7X,3HWK=,E10.4 ) 

A06 FORMAT ( 1 H , 5 X , AHOUE = , E 1 0 . A , 7 X , 3HWK = , E 1 0 . A , 7X , 3HT A= , E 1 0 . 6 , 
X7X,3HTB=,E10.6,7X,3HCP=,E10.4 ) 

AO 7 FORMAT ( 1H ,3HMM= , I 3 , 2 X , AHF AC = , F 6 . 3 , 2 X , 2HW= , E 1 0 . 6 , 2 X , 9HD L ENG ( M ) = , 
XE10.4,3X,27H PROGRAM WILL MOT CONVERGE. ) 

Q916 FORMAT (1H ,4HI = ,15, RH TB1= ,F13.A,6H TB=,F13.4, 

1 R H VFLB=,F13.A,RH SPRR=,F13.A ) 

9917 FORMAT ( 1 H ,2H.J=,I5,7H TR= ,F13.A,RH TB1= ,F13.A) 

9 9 1 P 10RMAT (1H ,6X,21HP0WER CONVERSION LOOP ) 

9919 i-ORMAT ( 1H , 19X , ] 6 HCAP -PUMPER LOOP , 1 A X 1 H= , T 6 , / 20 X , 9HC0NDENS ER / , 
1 24 X, 8HDI AMFTER, 17X, 1H= ,F1 1 . A , 3X2HF T / 2 AX , 9HF LOW RATE,16X,1H=, 

?F1 1 . A , ? X ,5HLR/HR ) 

9920 FORMAT (IH , 1 9 X , 2 R HCONDE N S E R (CAP-P LOOP INLET), 22X, 

1 2 7H CONDENSER (CAP-P LOOP E X I T ) / 24 X , 1 1HT E M P E R ATIJR E , 1 A X , 1 H = , F 1 1 . A , 
2AX 1HF,8X, 1 1HTEMPERATIJRE, 1 AX, 1H=,F1 l.A,AX, 1HF/2AX, RHPRESSURE, 
317X,1H=,F11 . 9 , 2 X ,3HPSI »8X, RHPRESSURE, 17X»1H=,F11. 4, 2X,3HPSI ) 

9921 FORMAT (IH , 2 3 X , R H V E L OC I T Y , 1 7 X , 1 H= , E 1 1 . A , 2 X , 5 HF T / HR , 6 X , 
1RHVEL0CITY, 17X, 1H= ,F11 . A , 2 X , 5H F T /HR , /24X » 7H0UAL ITY,18X,1H=, 

2 F 1 1 .4, 13X, 7HQUAL I T Y , 1 RX , 1 H= , F 1 1 . A ) 

9922 FORMAT <1H ,6X , 1 HN , 1 OX ,9HF LOW R ATE , 1 OX , 1 HO , 1 1 X , 

18 H ST AT ION, 10X,5HTEMP. ,9X,6HPRESS. , RX , 7HDENS I TY, / 

2 2 OX ,5HLB/HP , 10X ,6HBTU/HR ,2 AX ,5HDEG F,11X, 

33HPS I , 10X, RHLR/CU— FT ) 

9923 FORMAT ( 1 H . 19X , 15HC0SINF THETA = ,F5.3 ) 

9924 FORMAT (IH , 1 9 X , 3 6HR AD I ATOR - CONDENSING TURE LENGTH = ,F7.3, 

X2X,21HFT, TOTAL LENGTH = , F 7 . 3 , 2 X , 3HF T . ) 

END 
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5. AN EXAMPLE CASE 


The case used as an example for this program is a six loop heat 
rejection system using potassium as the working fluid. The condensing 
potassium channel is 20 x 2.5 in. rectangular cross section. 

The input data listing is shown in the following Table. The 
corresponding computer output is given on the succeeding six pages. 


EXAMPLE CASE INPUT 


KUN' ^ Six L 
. I ObC* GS 

• S2**L>Mi7 
. 1 0 j u ♦ 0 »* 

. ? t: f. 1 c - o h 

.250^ + 1-2 

• t? v i. f- * c o 

• 9 0 C u ♦ 0 J 
. 1 7 k: v c 2 

. i o l u * c a 

COPS 

. ; f 1 / - 0 ? 

• ! 2 6 t J £ 

2 

• o o j : 

• 3 '3 J . • :j } 

• 1 6 1 '/ ■* 2 ) 

I f-. 

. l * 3 ; ♦ C .> 
• 1 Z . - 0 i 

. 2 1 9 0 «■ - 2 
. 9 & j „ - 1 ; i 

♦ i :■ : c * : 1 

. 6 *• >i o + r : 4 

. j C vu--: l 

• i c :• c + ; 3 

* 1 2 ? 0 ♦ 3 4 

.1 

• 2 0 J G * 3 G 

« 2 5 C 1 0 “ 2 
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• r j 3 6 0 * 0 3 

1 

6 


III)! 1 

« 2 0 B L- ♦ Q o 

» 2 V 3 ' f 3 

. 2 : H C + 13 

.20*0* 3 0 

*2030*00 

» 2 o a o + c o 


< l l ? o :j + L. 2 

. i * 2 

< 1 0 i ■- _■ 7> 

. 53;v c 3 

* a J r ?. * l: 3 

• ! 7 J + j 3 

♦ * 3 0 - C 2 

' ■* 3 9'jOU-2 

» : ♦ .* 1 

. t 23C- 

• o 7 2 C + D 3 

• 1 f.' £ : 2 * c 3 

t * 2 C j * J 0 

( J £> h> 0 + O J 

« ^ r»i . -r C- j 
• z ■: 1 j + o 2 
F.KD data 

• ! j / - 3 j ' 

*• ' ! ^ i- * "5 J 

1 • 

• ^ 1 C + ■ - 

. 3C ;c-0 1 

< 7 3 2 ■; + 3 1 
. 1 S 3 0 ^ G 2 

* 1 0 2 3 * D 1 

• 6 0 o 0 ♦ C 2 




» l 7 q f. + 
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EXAMPLE CASE OUTPUT 


CA^U-lARY PUIrtpER - PROGRAM Z 


CONFIGURATION 

FLUID 

• 

2 

NUMBER of LOOPS 

m 

6 


TEMPERATURE at heat SOURCE 

* 

1220*00000 F 

HEAT TRANSFER AREA 

* 

I 2 • odqoo 

SQ 

G A p- - W I D T-W- 

m. 

•0012S FT 

CAPILLARY- EFf . RAQjuS 

* 

,00007 

FT 

TOtt|NG (LIQ) 

• 

rO 9 b 3 0 FT 

TUBING (YAPoR) 
ID 

* 

»2G3QD 

FT 

thickness 

■ 

•002S0 FT 

THICKNESS 

u 

•002S0 

FT 

length 

s- 

25^00000 FT 

tENGTH 

m 

5*00000 

FT 


FT 


-HA-TCHEP 

5 YSTfm-»aRAMET£R-S- 



PRESS. 

DENSITY 

N 

FLOV rate 

q Station 

T EmP • 


Lo/-mR 

btu/hr 

0 E 6 F 

PSI 

lb/cu-ft 

L 

l MS . 08 

♦ 9678 tG 6 0 

lONS-Nl 

H • 25 ? 

•NSoB +02 


KMS.NI 

M .232 

•M 5 US +02 



2 

M 9 S .51 

H .535 

♦ 1016 -ai 



3 

M?b.SI 

H. 4 S 5 

• 9801-02 


cosine theta 

= .613 



FT * 


R AOI ATOR ■ •-CO-NDcNS I NG- -TUBe-- lEN^T+F \ 7 , 5 q 0 

FT, TOTAL 

LENGTH > »e. 30 o 


pomer conversion loop 

C Ap — PUMPER -LOOP 
C0f40 £ NSER 

diameter 

FLO-i RATL 

COwE^iSER-KAP-P— LOOP - 
TEMPERATURE 

3 

3 

-MLE-T-, 

3 

l 

*3o99 

MfiOtOQOO 

1 ?20*0000 

FT 

LB/HR 

F 

CONDENSER {CAP~p LOOP EXIT) 
TEMPERATURE 

B 1203.5673 

pressure 

= 

5, NiUU 

r S i 

rniljjuHu 

- '! • 7 •’ - 1 

vfi nc t t v 

a 

. M12 + 07 

ft/hr 

veloc 1 1 r 

b ,1247+07 

DUALITY 

3 

,8900 


duality 

b .7132 


F 

r»C ! 

ft/hr 
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CAPILLARY PU'MpfcR - program 2 

CONF I GUR A T ION 

P L r J t 0 

Tt: -p£riATURE at heat SOURCE 
-GAP- V* I O-T-H- 

TUaihG (HQ) 

• lo 

T H l CKNESS 

length 


matched 

SYSTEM ^aRAME-TERS 





N 

flow r a te 

q station 

TEMP* 

PRESS* 

density 



lb/hR 

■BTU/iHR 

deg f 

PSI 

lb/cu-ft 

2 

1063.95 

.9263+06 n 

9^7.66 

3 * 8 1 6 

* HS 20 + 02 



i 

V87. 6 6 

3,791 

•M520+02 



2 

1 1 8 Q • 1 6 

^.10-4 

.9276-02 



3 

\ 1 6 [)t 1 6 

H .02 3 

*0938-02 


C 0 5 I N E THETA 

= ,821 





R Au-I A-T OR-- -CWDE-NS 1 U &— TUBf/- lENGt*~P 17,5oO 

FT* TOTAL 

LENGTH = 18.30Q 

FT. 


P 0 W E R C0NVEH5 X 0 r 4 LOOP 


CAP-PUMPER- LOOP “ 2 

C 0 N r. L ,N 5 E R 

0 1 -A-ME-TE-R- ft *36 99 FI 

K L G 'N RATE * 64+80*00Q0 LB/ HR 

-COh|>E^bE^-"<CAP-P-LOOP-I N L £■ F > CONDENSER (CAP-pLOQPEXlTI 


TEMPERATURE ~ i 203*5673 F TEMPERATURE ■ 1156*5607 F 

PRESSURE 3 M • 7 7 b 1 PSI PRESSURE - H* 2795 PSI 

VELOCITY k - 1 2 M B + 0 7 FT / HR u ri n r 1 T y m . i necini c r / u r» 

DUALITY - « 7 1 3 2 DUALITY « * 5 H M B 


Z NUMBER OF LOOPS ■ 6 

l203*b673M F HEAT TRANSFER AREA « 12*8QOUO SQ FT 

-00125 FT CAPi^LART EfF, rADjuS « #00007 FT 

TUBING (VAPOR) 

0 9 5 3C tt Id « t 2 8 300 FT 

.00250 FT '{HiCKNEGS « .00250 FT 

-25 * 000 00 FT LENGTH « S*OGqQOFT 
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CAPILLARY PUhpER - program 2 


CONFIGURATION 


FLU I 0 


1 

2 

NUMBER OF LOOPS 

• 6 


TEMPERATURE at 

heat SOURCE 

= 

1 1 86 • 5607 S 

F HEAT 

TRANSFER AREA 

= 12.80000 SO 

FT 

gap width 


a 

.00125 

FT CAPILLARY Eff, radius 

■ .00007 FT 


TUSjHG (LIQ) 




TUBING (VAPOR) 



ID- 


a- 

.09530 

FT 

ID 

■ .28300 FI 


TH I CKNES5 


■ 

.00250 

FT 

THICKNESS 

• . 00250 FT 


length 


a 

25.00000 

FT 

LENGTH 

■ 5.00000 FT 


■MATCHED SY-STeH- PaRANETERS- 








n Flo v. rate 

G 

station 

TEMP# 

PRESS. 

density 


l-bvhR 

8-TU/HR 



9EG F 

PS I 

LB/CU-FT 


3 IC16.1M . 

8073 + 06 


0 

1017.82 

3.387 

.N535+02 





l 

1017.82 

3.363 

• N535+-02 





z 

1 16s. 17 

3.692 

. 8NQ9-02 





3 

1 1M. 17 

3.610 

.809R-02 


COSINE THETA = 

*832 







R A*) 1 A-TOR - C-ONDENSiNG TUB£ 

LENGTH •- 17.500 

FT, TOTAL LENGTH « le,30o FT. 


power conversion loop 








cap-punper loop 

a 

3 





condenser 








DIAMETER 


a 

* 369* 

FT 




Floy, rate 


a 

6<480 'C000 

LB/HR 




CONDENSER (CAP- 

• P LOOP INLET) 


CONDENSER (CAP-p loop 

EXIT) 


TEMPERATURE 

a 

1 186.5607 

F 

temperature 

» 1 1 75 . 0 1 ON 

F 

PRESSURE 


a 

S. 2795 

PSl 

PRESSURE 

■ 3.9876 

PS l 

\» p - 1 n r i t v 


a 

.1056+07 

ft/hr 

velocity 

■ *7953+06 

M/HR 

fiiUAL-I-TY 


■a 

tb^a 


duality 

* .3827 
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CAPILLARY pumper - PROGRAM 2 


CONFIGURATION 



fluid 


■ 

c 

NUMbER OF LOOPS 

a 6 




TEMPERATURE at 

HEAT SOURCE 

* 

1 1 75.010‘I*I 

f heat 

transfer area 

■ 12*80000 

SQ 

FT 


GAP-WIDTH 


M. 

.00125 

FT CAPILLARY tFF . RADIUS 

» .00007 

FT 



TUBING (LIQ) 




TUBING (VAPOR) 





ID 


m- 

.09530 

FT 

ID 

a ,28300 

FI 



thickness 


m 

.00250 

FT 

THICKNESS 

■ .00250 

FT 



length 


m 

25.00000 

FT 

LENGTH 

S 5.00000 

FT 


matched- SYSTEM -PARAMETERS 









N 

plow rate 

0 

station 

TEMP* 

PRESS. 

DENSITY 




lbamR 

RTU/hft 



DEG F 

PS1 

L 6 /CU-FT 



H 

9 B 6 , *1 1 . 

8628 + 06 


0 

998.22 

3*111 

.1511+02 







l 

998.22 

3.089 

.1511+02 







2 

1 153*26 

3. *131 

,7850-02 







3 

1153.26 

3.317 

, 7 5 S 6 - 0 2 




COSINE THETA * 

,61** 









R AO-i-A-T-OR- — C-ONDENS iNfc- -TUBE 

LtNGT-H * 17*500 

• FT, TOTAL LENGTH a le.30n FT. 



POWER 

conversion loop 










CAP-P-UNPER-uOOP 

CONDENSER 


■ 








Diameter 


EL 

• 3 6 9? - 

-FT 






FLOiV rate 


* 

6*460 * 0000 

LB/HR 






OOw&NSER CAP- 

P-LOOP- INLET) 


condenser (cap-p loop 

EXIT) 




TEMPERATURE 


X 

1 1 75 • 0 1 OH 

F 

temperature 

a 1171.1236 

F 


PRESSURE 



3*9676 

PS1 

PRESSURE 

a 3«R6 a9 

PSI 


VELOC I TY 


* 

,7959+06 

ft/hr 

velocity 

a * **760 + 06 

FT/HR 


UUAL-I-T-Y 


* 

• 3 B 2 7 


QUALITY 

a .2235 
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H» 

-H*- 

M* 


CAPILLARY PUMPER - PROGRAM 2 


CONFIGURATION 



PL-U-fO 


* 

2 NUMQER OF LOOPS 

m- 

6 



TEnPtRATURE AT 

HEAT SOURCE 

■ I 171 *12369 F HEAT 

TRANSFlK area 

Vi 

12.80000 SQ 

FT 


<rA-P WIDTH 


-* ,0.0125 FT CAPILLARY EfF. rADiuS 

« 

»00u07-f T 



TUB I ^0 (HQ) 



TUBING (VAPOR) 





Jo 


* • 09&3C FT 

10 

■ 

.28300 FT 



THICKNESS 


* *00250 FT 

THICKNESS 

■ 

.00250 FT 



LENGTH 


» 25.00000 FT 

LENGTH 

m 

5 . 00000 FT 


-MA-T C HE 0—5 Y ST E M PARAMETERS 








N 

FLOW RATE 

0 

station 

TEMP* 

pkess. 

density 



l-b/hw 

B‘T U/+»-R 


DEG F 

PSI 

LB/C U 

-FT 


5 

976,8? 

.8SSQ+06 

0 

1027.92 

3*022 

.M5R6+02 





1 

1027.92 

3.000 

.H5RB+02 





2 

1199.58 

3.346 

.7679 

-02 





3 

1199.50 

3.262 

• 7377 

-02 



COSINE TH£TA = 

• 8 4 6 








R-AD-I-AfOR CONDENSING- TUBe LFH-GTH'* 17.SQ0 FT, TOTAL LENGTH ■ 1b.30q 

FT. 



power conversion loop 









CAP-PUMPER LOOP 

* 5 







CONU t NSER 









u I A ME-TER 


*■ .3699 

FT 






Flow rate 


■ 6400*0000 

LB/HR 






condenser.. (-CAP 

-P— LOOP-— I NL-E-T) 


condenser (Cap-p loop ex i t » 




TEMPERATURE 

■ 1 l 7 1 • 1236 

f 

temperature 


■ 1175.8753 

F 


PRESSURE 


* T.B669 

PSI 

PRESSURE 


» 3.9903 

PSI 


VELOCITY 


* .4762+06 

ft/hr 

velocity 


■ *1322+06 

FT/HR 


Qual I ty 


*2235 


duality 


■ .0637 


1 I N I T I A l 

GUESS OF W IS TOO 

HIGH TO OBTAIN 

H AtCH POINT. 

FAC* .gO 





U4+1 FIAl 

GUE-SS ir IS TOO 

HIGH TO OBTAIN 

M A-TCH POINT* 

FAC* .70 





i initial 

GUESS OF » IS TOO 

HIGH 10 OBTAIN 

M ATCH POINT* 

FAC* .60 
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CAPILLARY pumper - PROGRAM 2 

configuration 

r l-o i o~ 

TElifERATURE AT HEAT SOURCE 
GAP- •»; 1 DT H 
T Ufj I NG (Lit)) 

10 

thickness 
length- 

mat C H E 0 - S Y s T-E IP- p-aRAMET ehs 
N FLOW RATE 0 STATION TEmP. PRESS# DENSITY 

C-fr/H* BTU/HR. DEG F PS I LB/CU-FT 

6 650.32 .5672 + 06 0 88*1.13 .8*17 .8669+02 

1 66*1,13 ,837 ,<1669 + 02 

2 1021.08 1.296 ,3113-02 

3 1 02 1 ,o» 1.197 .2933-02 

COSINE THETA = .9+11 

■IvA&l A-T-OR CONOENS-lNCi TUlit lENGT-h * 1-7.S00 FT, TOTAL LENGTH * Ie.30o FI. 

power conversion loop 

CAP-P-OIiPE-R- -coop * 6 

condenser 

OIAME-T-ER- -* *3699 FT 

Floy* ratf b 6 rho*oooo lb/hr 

COndENSER — (-CAP— P -LOOP - I NLE T > - CONDENSER (CAP-p LOOP EXIT) 


TEMPERATURE 

0 

1 j 75*6753 F 

TEMPERATURE 

0 

96*1.5262 

F 

PRESSURE 

0 

-3.9903 PSI 

PRESSURE 

B 

<(.0671 

PSI 

VELOC 1 TY 

n 

.J32i'C6 FT/ HR 

Vtuui.»T T 

B 

* 1 1 N2 + U3 

FI /HR 

/T . 1 * 1 tv.. 

SYSTEM HEAT REJECTION = .5067+07 

BtU/HR 

-.0637 

duality 

m 

.0000 



2 NUMBER OF LOOPS « 6 

1175.87526 F HEAT TRANSFER AREA ■ 12.60000 SU FT 

*00 1 25 ft CAPILLARY EfF, RADIUS * .00007 FT 

TUBING (VAPOR) 

.09530 FT 10 a .2S300 FT 

.00250 FT I H 1 C K |Y E S 5 * .00250 FT 

25.00000 FT LENGTH a 5.OO0OO FT 



APPENDIX E 


RADIATOR OPTIMIZATION PROGRAM 


The radiator optimization program is described in this appendix. 
Section 1, Program Abstract, gives a statement of the program's purpose 
and the calculation sequence. Section 2, Input Data List, defines the 
items required in the input data block. Section 3, Output Data List, 
defines terms used in the output data block. Section 4, Program Listing, 
gives a print-out of the program card deck. Section 5, An Example Case, 
gives the input and output data for an example case. 
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1 . PROGRAM ABSTRACT 


The program designs a number of radiators for a range of internal 
parameters input by the user and does not internally optimize the radiator 
weight. Optimum radiators are then determined external to the program by 
the user. 

The program is integrated into the SINDA network analysis program, 
reference 10, using the General option with a "Load and Go Subroutine." 
Input is through the SINDA Array Data block and five data cards are read 
by the subroutine using standard FORTRAN Read Statements. 
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2. INPUT DATA LIST 


The following table summarizes the data cards and defines the terms 
used in the input data block. 
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Table E-l . LIST OF SYMBOLS USED IN DATA BLOCK 


SYMBOL 

DESCRIPTION 

UNITS LIMIT 

CARD 1 (8E10.5) 

RHOL 

Liquid density. 

lb/ft 3 

CONL 

Liquid thermal conductivity. 

Btu/hr-ft-°F 

CONH 

Condensing heat transfer coefficient 

Btu/hr-ft 2 -°F 

DP 

Total static pressure drop 

psia 

PI 

Inlet pressure 

psia 

TI 

Inlet temperature 

°R 

RHF 

Density inner fin material 

ib/ft 3 

RHT 

Density tube material 

lb/ft 3 

CARD 2 (7E10.5) 

CONF 

Thermal conductivity inner fin material 

Btu/hr-ft-°F 

SUFT 

Working fluid surface tension 

lb/ft 

ACONE 

Cone half angle 

radians 

TOT 

Outlet temperature 

°R 

WD 

Flow rate 

Ib/minute 
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Table E-l. LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOLS DESCRIPTION UNITS 

R Gas constant ft/°F 

GAMMA Specific heat ratio 

CARD 3 (8E1Q.5) 

VISV Vapor viscosity Ib/ft-sec 

HFG Heat of vaporization Btu/lb 

CL Liquid specific heat Btu/lb-°F 

DCONE Cone diameter at inlet ft 

EMM Fin/tube emittance 

TS Equivalent sink temperature (565) °R 

CML Maximum tube length (23. V ) ft 


CODF Fluid type code: 1. = potassium, 2. = sodium, 3. = cesium 

CARD 4 (4E10.5) 

Ib/ft-sec 
lb/ ft 3 

Btu/hr-ft-°F 


VISL 

RRFO 

CONFO 

THKR 


Liquid viscosity 
Density of outer fin material 
Conductivity of outer fin material 
Thickness ratio = 


LIMIT 
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Table E-l. LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 

DESCRIPTION 

UNITS 

LIMIT 

CARD 5 (6E10.5) 




Dll 

First tube inside diameter 

i nches 


DDI1 

Increment on inside diameter 

inche? 


DN 

Number of tube diameter combinations 



TT1 

First number of tubes 



DNT 

Increment on number of tubes 



TN 

Number of tube number combinations 



SINDA TABLE INPUT 

ARRAYS 



A1 

Lockart-Martinelli ; correlation 



A2 

Tsat v.s. P for potassium 

°R, psia 


A3 

Tsat v.s. P for sodium 

°R, psia 


A4 

Tsat v.s. P for cesium 

°R, psia 


A5 

Fin effectiveness v.s. N c relation 



A6 

N c v.s. fin effectiveness relation 





3. OUTPUT DATA LIST 


The following table defines terms used in the computer output. 

It also gives the meanings of error statements built into the program. 


Table E-2. Output Data Definitions 


DI = Tube ID at inlet to radiator (inches) 

DO = Tube ID at outlet of radiator (inches) 

NTUBES = Total number of tubes 

TFIN = Fin thickness (inches) 


FEFF = Fin effectiveness, approximate 

QTOTL = Total heat rejection (Btu/hr) 

QCOND = Heat rejected in condenser section (Btu/hr) 

QSCLR = Heat rejected in subcooler section (Btu/hr) 


LTOT = Total radiator tube length (ft) 
LCOND = Condenser section tube length (ft) 

LSCLR = Subcooler section tube length (ft) 

ATOT = Total radiator area (ft^) 


FINW = Fin weight (lbs) 

TINSUB = Inlet temperature to subcooler (°R) 
DPIH = Inlet header pressure drop (psi a ) 
WILH = Inlet header weight (lbs) 


TUBE WALL Thickness for 0, 1, 2, 3, 4, 5 penetrations (inches) 
TUBWO = Tube weight - 0 penetrations (lbs) 

TUBW1 = Tube weight - 1 penetrations (lbs) 

TUBW2 = Tube weight - 2 penetrations (lbs) 

TUBW3 = Tube weight - 3 penetrations (lbs) 

TUBW4 = Tube weight - 4 penetrations (lbs) 

TUBW5 = Tube weight - 5 penetrations (lbs) 
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Table E-2. Output Data Definitions (Cont'd) 


WO 

U1 

W2 

W3 

W4 

W5 


Total radiator weight 0 penetrations (lbs) 
Total radiator weight 1 penetrations (lbs) 
Total radiator weight 2 penetrations (lbs) 
Total radiator weight 3 penetrations (lbs) 
Total radiator weight 4 penetrations (lbs) 
Total radiator weight 5 penetrations (lbs) 


ACTUAL COND FIN Q = Calculated heat rejection from fin in 

condenser section (Btu/hr) 


REQUIRED FIN Q = Required fin heat rejection. For valid 

solution this quantity and the above must 
be nearly equal . 

WLQ = Weight of liquid inventory in Subcooler Section (lbs) 


Error Messages 

If a valid solution cannot be determined for the combination of tube 
number and diameter chosen, error messages are printed and the 
program passes on to the next combination. Meaning of these messages 
is summarized below. 

1.0 Required n greater than 0.99 

2.0 Length calculated greater than available. 

3.0 Available two phase aP less than zero. 

4.0 Too many tubes to fit on circumference. 

5.0 Q subcooler less than zero, 

6.0 Inlet velocity greater than sonic velocity. 

7.0 Fin thickness less than .001". 

8.0 Fin thickness greater than 0.1". 
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4. PROGRAM LISTING 


A listing of the program card deck is given in the following section. 


for cnNi>An , chimp ah 

SUr^ni.iT TMF COMPAVM } , A ? , 1*1*4., A/., .*.3, AM 

DIMENSION r»f s ni.(IO) 

wr ] re; (a,ooo) 

QOO FflRM^I (AfiHl ***** CuNOF^Sl MG PA hlATOK M j NG pi; f,;; . 1 - ) 

?30 R E A H { 5 , 1 05 ) RHDL. COWL. CHNH, DP, f- 1 , T 1 *l:Hh,iUn 

PR AD< 5 , 1 1 O ) C.n.Vf- • SUET - ACnfC : , TO i t WO « k - R. A «*>■'. A 

110 FORMAT ( 7F ; ] n. 5) 

R E AO < 5 , 1 05 ) VI SV . MR; , CL - Mr ni'F - f- :‘f-' , T $ , CML , C CDF 
RFAOf 5, qoo ) vi sir r-»rn, cnA'/ n, jhkr 
009 FORMAT ( Af : ] 0 .5 )• 

READC 5, 506 ) OR , HM i , r»w, TT 1 , nf\«T i TM 
000 FORMAT (6M0.5) 

105 FORMAT ( OF 10.5) 

WRITE (5,901 ) 

901 FORMAT ( 7 ? M 0 RHPL HCO^OS KL T l1 U i-'iiR 

C RHF 0 1 

WR ITE ( 5,90? ) RHOL . CfiMH, r ( 1 M!_ , R H F- , k i J T , r - M f- P 
°02 FORMAT ( 1H , IX , F7 . 1 , SF 1 2 . 1 ) 

WRITE (5,Q03) 

903 FORMA T ( 7 ?H TIN THKR V F ! \‘ I K-I-vl 

C FLOW 1 

WRITE (5,90? ) T I , THKR, CON F, CON FO, TOT, WO 
WRITE ( 5,a 0 4) 

904 FORMAT (72^ P GAMMA HFG TSNK 

CE LMAX 1 

WR1TE( 5.902) R, G A«m A, H FG,TS, DC ONE, CML 
WR ITE ( 6, Q 05 ) 

905 F0RMAT(7?M OP PI SURFT ACONE 

c vrsi ) 

WRITE ( 5.906 ) DP, PI , SUFT . A CONE , V I SV, VI SL 
905 FORMAT ( 1H ,1X,F7.2,F12.2,F12-4,FI?.4,F12.6,F12.6) 

WR T TE ( 5 , 907 ) 

907 FORMAT ( 72 M CPL EMIS CODF 

C i 

WPITE(5,Q0R) CL,FMM.COOF 
90* F0RMAT(2H ,F7.2^r 12.3,Fl?.l) 

TM INM= « 03 

ftHF=( THKR^RHFO+RHF ) / ( 1 • +THKt£ ) 

CGNF = (TMKR^CONFO+CONF) / ( 1, + THKR ) 

X 1= 1 *0 

DT=DT 1 

DO-D I 1 

D0=00 

A10=:.0l 

A 1 1=:* 15 

AIZ^.43 

A 1 3=:* R3 

A14=:1.2R 

A15=l.*0 

X0=0*1 

240 TU8N=TTl 
XT=0.1 

RHOV-P I *144. / ( R*TI ) 


!• M;. I 


i . nn 


DC i'M 


VI SV 


Figure E-l . Optimization Program 
Listing 
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v son r. - l .. . a / * s nc* r " » a ■■ ■ n * p. * 1 1 i 

? > 0 VI n " l ■ ■ )/ [ > O . : T 1 M J *• * k I i i'i V 'I . J 0 1 ■■:■- ■ 2 ) - 4 . * 1 4 4 . 

IFfVliV.rr, Vsnnf.) f;n in ftoo 
r»1NH:- ,‘.»nif^T(T , |l!l'!) 

R E M= V 1 L :*-*»*' • \/i-n T f 'H / ( I 2 . * V I S V > 

0P1H=.3 V 3. l/|*r>aiF'F4RHnv*VlN*«2/( RFN**.?5*DINH*24.*32.2 ) 

DP JH=mMH/A. 
pfv jn-pf ■■*;.■ n t /mnn 

OPLC-DP-n? r n+pfinvvV 1 n*vpj/92A0. 

I F ( DPLC . L T . O . n i an TO 10 
X2=r()0*l URN/12. /3„ ! /j 
TK(X2.r,F.ncnf''F) an m ?n 
X=] .05 
PI 1 =0 . 0 
P rzso.n 
Du 20 I — 1 *10 
j? = r 
> i 

O-fH - ( 1 . -v ) * ( n ! - no ) 

0 ! [Mrf) 

f>r/n)v4? 

T Mr. T A -= Mi - T i’ 3 7 . 2 / ( v I 5 V* " ) 

;■ r = v v n /i?,fon n v / v i 5 v 

1 K ( TliFTA.i’l .57.23. AM>. 1 H F T A . L T . ?, 2 7 . 59 ) C E = 4 . 1 P 2 / TH E T A ** . 9 2 2 5 
1 F ( THF T A . OF. 3 27 . 5° ) C n-_- .02 

1F(THFTA.!_F.57.?3) CF-.] 

A=(((l.-V)/X) **1 . 8*RH0V/RHflL*( V I SL/V I SV )**. 2.)**. 5 
CALL D 1 H r 0 1 (A, A 1 f B] 

PTPPTH. p , 'C !I *2. / ( RF )**. 7*RHnV*V**?/{ 0-32.2-1 2. )*B**? 

DPDL ( T )r (PTl-Pl 2) *10. 

P T 2 = P T 1 
20 CONT iMHj- 

F L C = n P i_ C / P T 1 
TF(FLC .ai ,cml ! an t 0 - 30 
T F ( C 0 r > F . 1 . 1 . 1.51 O'; in 
1 F ( CO OF .LT. 2 . 5 ) on m 50 
PO-P T -DP 

CALL DlOEGl (P0,A4,T0) 

an tg ao 
40 pn=PT-n D 

CALL niDFCl (PG, A 2 , T 0 ) 

an to ao 

50 PO=PI-OP 

CALL niOFOl (Pn, A3. TO) 

AO CONTINUE 

OCOND^-MFC-iwn + FT^C!.- f T I -TO) 

E L C- 1 2 . * F I. F 

AT U 8 = 5 “ ^ 7 • ( ni-nr.) ”*2/4.+ELC**2)*3. 1 4* ( 01 +00 ) /2 . / 1 44 . *TUBN 

elc=fl r./i?. 

OLT-ocn r -fi*oa. /{ a rnR*co-\'H j 
ncoMn-rocn.'ip^^n. 

TAVW=n T+ini / 2 . - dl T 

A THRO - T I ( n T + nn ) / 2 4 , F i. r 

0 T U B = A 1’ i f ■ «'■ . 1 7 1 4 f — P t F v m v { y A V W - 4 - -T 5 * - 4 ) 
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of jN-acriNn-nTtm 

DC riw FO= DCONF-2 . *FLC*S I N { AGONE ) 

ATOT=3. J4*< OCnMEn+DCDMF ) /2.*FLC 
AFIN= ATnT-TUBN*( ni + DO) / ?-/]?. -FLC 
lF(AFIN.LT.O.O) GO TO 70 

E FFBAK-OF T to/ ( EMM*. 1 7 1 4E-R* ( T A VW**4-TS**4 ) * AF I N ) 

IF(EFFRAR.GT.O.QP) GO TO 80 
DMRAN=DC0NE-2.*FLC/2.*S1N( ACONF ) 

C|RCF=3. ]A*nMFAM-TUBN*{ DI+nO) /2./ 12. 

F J NLT = C I PCF/TURN/?. 

CALL D 1 DEG 1 ( E f*.-« AR * A 5 t XL Mr. A ) 

TFTN=FMM*. 1 7 14E-8*TA VW**3*F I ML T**2 / C X LMBA«CONF ) * 1 ? . 

IFCTFIN.LT. 0.001) GO TO 91 
IF(TFIN.GT.O.l) GO TO 92 
OSC = WI)*CL* ( TO-TOT ) *60. 

IF(OSC.LT.O.O) GO TO 90 
CntlNT2^0.0 
422 COUNT ~ 0* 0 
PA DCAC=0.0 
X3=-.05 

P f A = PI-DPIH-RHnv*Vl N*V f M/9 260. 

Xfl = X T 

xq=xt/io. 

DO 93 [=1,10 
X3= X 3+ . 1 
XI0=Xfl-X9 
D=nr-x3'+(DT-on) 

F I NL T= ( 3 . 14*(0C0NF-2.*FLC*X3*SIN< ACnNP ) ) -T URN *0/ 1 2 . ) /TURN/ 2. 

PI A=PI A-ELC/10.*nP0L ( I ) + R H 0 V * V I N* V I N / ( X I * * 2 * 3 2 • 2 * 1 4 4 . ) * ( X 8 * * 2 — X 1 0 
C**2) 

X R = X 1 0 

IFCCODF.LT. 1.5) CALL 01 OEG 1 ( P I A , A 2 , TO ) 

I F ( CODF • GT * 2 • 5 ) CALL 010EG1 ( P I A , A^,TO ) 

IF (CODF.GT. 1.5. AND. CDDF.LT. 2. 5) CALL D 1 DEG 1 CP I A, A 3, TO) 

TW^TO-DLT 

XL MBA=EMM£ * 1714E-«*TW**3*FINLT**2* 12. / (CONF*TFIN ) 

CALL D1DEGI (XLMRA.A6.EFFL0C) 

OCAC=OCAC+EFFLOC*FMM*. 1714E-8*TIIRN*FINLT/6.*ELC/10.*( TW**4-TS**4)* 
C 1 2 . 

93 CONTINUE 
COUNT = COUNT + 1 . 

IFICOUNT.LT. 1.5) GO TO 9^ 

IFtCOUNT.LT. 2. 5) GO TO 97 
IFCCOUNT.LT. 3. 5) GO TO 93 
GO TO 95 

94 IFCABSCCOFTN -QC AC ) /OF I N J.LT..01) GO TO 95 
TF I =TF TN 

TFIN=TFTN*< l.+CQFIM -QCAO/OFIN) 

IFCTFIN.LT. 0.0) TFlN=TFI/2. 

TF2 = TF T N 
OCONT 1 =0C AC 
GO TO 96 

97 IFCABSCCOFTN -0CAC)/0FIN J.LT..01) GO TO 95 

TFIN=TF IN-COCAC-OFIN )*( TFIN-TFI ) / C OC AC-OCONT 1 1 
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Q 5 
420 


4?1 


IF (TrTN.LT. 0.0) TFlN=TF2/2. 

OCf,Ml 1 r.nCAC 

rr? = TF r f f 
rn in 06 
CO^TINUF 

II- ( APS ( ( OF ? M-OCAC ) /OF I M ) .LI * .01 ) GO TG 421 
r.nuNT?=cniiAit?+i . 

iKrmiMT?.Gi.A.5) r.n to 421 

T F 4 :: T F I M 

T F F f' 1 -■ T F IM-(OC Y-°FIW )*(TFJN-TF2)/(OCAC-OCONT1 J, 

I F ( T F I f\i . I T . 0 . 0 ) T F I M = T F 3 / 2 . 

7 F 3 - T F II'! 

ncrp-i r i-nr.AC 
1 F 2 - T F 4 

ro rn °r 

CGMT IN'IIF 

APt<xL=FLC*osc/ncnMn 

PFI_ =wn / { 6 n . *TURN*RHnL*3 . 14*00**2 1 *4 .**12 . *00*RH0L /V I $L 
PR=CL*VT SL /CnML*^6no. 

HL I 0 = . 6 ? 6 * ( R F L * D P ) ** . 4 

ml r 0 = ml rnccniuL* 1 2 . / no 

TW= ( ( TfUTm 5 /?. ) -QSC*12./ ( 3. 14*APRXL*00*HL IO*TUBN) 

atur= A poyL^nn/ i turn 

DCnMn = DC0MFn-7.^APRXI_*SI ^ ( acdne ) 

ATGSC=3.l^*( DCnMO+nCnMFn )/2.*APRXL 

finlt=(?.i 4*{ ncnNO+nco?^Ffn /2 - -oo*turn/12 . ) *.5/tubn 
XLM ftA=EMM*. 1714E-8*TW**3*F[NLT**?*12. /<CONF*TFl*i) 

CALL 010FG1 (XL MR A t A6.FFFRAT) 

OACT=EMM* . 17 14F-8*TW**4* ( ATUB+ ( ATOSC-ATUB )*EF FB AT ) 
$CL-APRX|_*OSC/0ACT 

WTL0=TURN*3. 14*00**2/57i5.*SCL*RHOL 

AP=TUBN*3. 14* ( SCL*00/12 .+ELC* ( DI +00 ) /24. ) / ( 3 .28 1*3 . 28 1) 
TAU=«35. 

T T 0= 3 • A P E —3* { TAIJ*AP/A10) ** .27 3 
BTl=3.6«F-3-( TAII*AP/A1 1 >**.2 73 
TT2=3.6PF-3* ( TAU-AP/A12 ) ** .273 
TT3=3.R«E-3* ( TAIJ*AP/A 13 ) **.2 73 
TT4=3.F«F-3* ( TAU*AP/A 14)** .273 
TT5 = 3.*«F-3*( T A M* A P / A 15 ) '* * • 2 7 3 
TT6=3.RR3F--3*( 1825. *AP/. 001 ) * * • 2 7 3 
TT7=3.6R3F-3*( 1 8 2 5 . * AP / . 04K ) **. 273 
TTr=3,6R3F-3* { 18 25 .*AP /. 19 51** .273 
TT9=3.6P3E-3*( 1825. *AP/. 430) **.273 
TTW=3.6P3E'3* ( 18 25 .* AP / .700 ) ** . 273 
TTX=3.6P3E-3*( 1825. *AP/1. 17)* *.273 
TOTL-SCL+cLC 

DC0E = DC0NF-2.*T0TL*SINf ACDMF ) 

AT0TAL-3.14*( nCOME+OCOE) /2.*TDTL 

AF IN= ATOTAL-ELC*( no+on /2^.*TUBN-SCL*D0*TIJBN/12. 

WFTN = AF 1 N*TF TM/12.*RHF 
T 1 = TT 0 

IF(Tl.LT.TMTNM) T 1 =TM l NM 
T T 0 = T 1 
T 2 = T 1/ A . 
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!F(T?.LT.TMTNM) T2=TMInm 

C A0= ( OT 2. *!?)* { 0 1 /2. +T ] )+'3. ] 4*( { D I + 2 . *T? ) **? -n I * *? * > . ) / "• 
T I = BT l 

1 F ( T 1 . L T . T M I MM ) T 1 = T M I MM 
BT 1 = T 1 
T? = T1 /A. 

I F { T 2 . L T . T M J NM ) T 2 ^T M 1 N'M 

ca i = ini +2 . *t? ) * ( n i /?. + t 1 ) +3 . 1 a* i (nil?, - t? > **?-n i **?*? . ) //* 
T 1 =T T2 

1F(TULT.TMT M-^ T 1 -■ T M I MM 
T 2 = 7 1/4. 

TF(T2.LT. TMTNM) T2 = TM I MM 

CA2=( DT+2.*T? )*{ hi /2 . +T 1) + 3. 14* ( ( 01 +2.*T2 ) 2 * 2 . } /H 

T 1 = T T 3 

T F { T 1 . L T . T M J MM ) T 1 = T M I NM 

1 T 3 = T 1 

T?=Tl/4. 

I F(T?.LT. TMTNM) T 2 = T M l N M 

CA3= ( HI +?.*T2 ) *{ HI /?.a Tl) + 3 . 1 4* { { HI +2. *7 2 ) **?-n|**?*? . ) /r< 
T 1 = T T4 

TF(Tl.LT.TMTMM) ti=tmimm 
TT 4 = T 1 
T2=T 1 /4 . 

IF(T2*LT»TMTNM) T ? = T M I M M 

CA4=(D!+?.*T2)*(ni/?.+Tl)+3.14*( ( 0 T + 2 . * T 2 J * * 2-0 1 **2* 2 . )/8 
T 1 = TT5 

IF { Tl .LT.TM I MM.) TlrrTMlMM 
T2 = T 1/4. 

TF(T2.LT.TMTNM) T2=TMImm 
TT5=T 1 

CA5=(DI+2.*T2)*<ni/2.+Tl)+3.l4*( ( D I + 2 * * T 2 ) ** 2 -D I **2 * 2 . ) / R 
T 1 = T T6 

I F ( Tl .LT.TM T MM) T 1 = T M I M M 

TT4-T1 

T2=Tl/4. 

T F ( T 2 . L T . TM T MM ) T ? = TM I MM 

CA6=(ni+2.*T?)*<ni/?.+Tl)+3.14*((DI+2.*T2)**2-ni**2*2.)/R 
T 1 = T T7 

IF(Tl.LT.TMINM) T1=TMINM 

TT7=T 1 

T2=Tl/4. 

IF(T2,LT.TMTNM) T 2 = T M I NM 

C A7 = ( DI+2.*T2)*<0I/2.+Tl)+3.l4*<U>I+?.*T2>**2-DI**2*2.)/8 
Tl=TTR 

IF( Tl .LT.TMTNM) T 1 =TM I MM 

TTR=T1 

T2=Tl/4. 

T F ( T2 • L T. TM T MM ) T2 = TMINjM 

CAR=( DT+2.*T2 ) - C DI /2 . + T 1 ) + 3 . 1 ( ( 0 I + 2 . *T 2 ) ** 2-DI **2*2 • ) /8 

T1=TTQ 

IF ( Tl .LT.TMTNM) T1=TMINM 

TT9=T1 

T2=T1/^. 

IF(T2. LT.TM I MM ) T2=TMINM 
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CACi=(DI + 2.*T2)*(M/;?.+T1 l DI+2 . *T? ) **2-DI **2*2 . ) /B 

11=11 w 

T F ( T 1 - L T . TM T MM ) T 1 - T M I MM 
T T W = T 1 
1 2 = T1 /4. 

1 F( T2.LT .TMJNM) T 2 = T M I M M 

C A W= ( 0 1 + 2 • * T 2 ) * ( 0 1 / 2 • + T ] )+3. 14* ( (01+2. *T2 ) **2~I)I **2*2. )-/8 
1 1 =TT X 

T F ( T 1 . L T . TM T MM ) T ] - TM I MM 
T r *=tt 
T ? = T 1 /4 

1 F C T2 . LT .TM T MM ) T?=TM I MM 

CAX=(DI+2.*T?)*(nl/2.+T] 1+3. 14* < (DI+?.*T?)**2-F)I**2*2. )/R 

W T 0 = C A 0 * T ITT L * P H T / ] *» 4 . * T U ?. N 

WT 1 = C A 1 * W T O / C A 0 

W T ? = C A ? * V T 0 / C A 0 

WT 3 = C A 3 * W T 0 / C A 0 

WT 4 = C A A W T 0 /C A 0 

WT5--C A5*WT0/CA0 

WT6=CAA*WT0/CA0 

W1 7 = C A 7 * W T u / f. A 0 

wtr=car*wto/cao 

WTQ=CAQ*WTO/CAO 
W T W = C A V/ * W T 0 / C A 0 
W T X = C A X * W T O / C A 0 
OTOTL = OSC + n CDNr) 

WT LH=. 05*3. 14/12.*0IMH/12.*3. 14*DC0NF*RHT 


W0=WT0+W TLH+WF T N +WTLO 
Wl=WTl + Wn.H+WFTN +WTLQ 

W2-WT2+W1LH+WF IN +WTLQ 
W 3 = WT 3 + W I L H + W F l N +WTLO 


W4=WT4+W TLH+WF TM+WTLO 
W5=WT5 + WT LH+WF [ N+WTI.0 
W6 = W5 — W T 5 + W T6 
W 7 = U'5 — WT 5 + WT 7 
W«=W5-WT5+WTR 
W9=W5-WT5+WTP 
W W = W 5 - W T 5 + W T W 
WX=W5-WT5+WTX 

wr i te ( f* 1 1 no ) ni tDo.turn.tf in 

WR TTE ( A, 101 ) EFFBAR ,OTnTL tOCOMPtOSC 
WRITE (6, 102) TOTL*FLC,SCL* ATDTAL 
109 FORMAT ( 1 OH W4= ,F10.1,10H W5= ,F10.1) 

WRITE (6, 104) WFIN*TO*DPIH,WILH 
WR ITE( A* 1 12) 

112 FORMAT ( 3 4H 20000 HR, 2 NINES MISSION WEIGHTS) 
WRITE (A, 107) TTOt BT 1 » TT2,TT3 
107 FORMAT ( 29H TUBE WALL THICKNES N = 0 * 1 » 2 * 3 * 4F 12 .3 I 



WR !TE( IS., 1 1 1 ) 

TT4.TT5 

111 

FORMAT ( 25H 

N=4 » 5 » 2F 12.3) 


WRITF(A, 103) 

WTO,WT] i WT2 t WT3 


WRITE! A, 424) 

WT4.WT5 

424 

FORMaTT 10H 

TIJBW4 = * F10. 1 » 10H TIJRW5 = »F10.1) 


WR I T E ( A f 1 06 ) 

WO.Wl ,W2.W3 
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r 


WPITtM 6*109) W4 t W5 
WRITE (6, 423) 

423 FORMAT (23H f> YEAR 3 NINES WEIGHTS) 
WRITE (6, 107) TT6.TT7,TTR,TT9, 
WRITE! A, 111) TTW , T1 X 
WR 1 TE ( A • 1 03 ) WT A, WT7 , WT« , WT9 
WRITE (A, 424) WTW.WTX 
WR I TF ( A * 106) W6,W7,WR,V9 
WRITE! 6,100) VJW,WX 
WRITE(6,10«> QCAC.OFIN 
WRITE! 6,410) :- f TL() 


419 

10B 

FORMAT! 10H 
FORMAT (20H 

WLO = ? F 1 0 . 1 ) 

ACTUAL COMO FIN 0 

t F 1 4 * ] , 

1 5HRE0UIRF0 FIN 0 ,F14.1> 

106 

FORMAT! 10H 

WO = ,F10.1,10H 

wi 

= 

*F10. 1, 

10H 

W2 = , FlO.l 

100 

C , 1 OH VI 3 

FORMAT! 10HO 

= ,F10.1) 

01 = »F10.3»l OH 

no 

_ 

, FIO. 3, 

10H 

NTUBE S = tFIO.O 

101 

C,10H TFIN 
FORMAT! 10M 

= , F 1 0 . 4 ) 

FFFF = tFlO.Atl OH 

QTOTL 

■ _ 

t F 1 0 * 0 1 

10H 

OCONO = , FlO.O 

102 

C»10H OSCLR 
FORMAT! 10H 

= .FlO.O) 

LTOT = .F10.3.10H 

LC0NO 

= 

* F 1 0. 3 * 

10H 

LSCLR = ,F10.3 

103 

C * 1 OH ATOT 
FORMAT! 10H 

= .FIO. 3) 

TlIBWO = ; FIO. I , I OH 

TUR WI 

= 

, FIO. 1 , 

I OH 

TUBW2 = , FlO.l 

104 

C.10H TUBW3 
FORMAT! 10H 

= .FlO.l) 

FI MW = . FlO.lflOH 

TINSUB 

_ 

t FIO. 1, 

10H 

DP I H = , F 1 0. 4 

200 

C*10H WTLH 
CONTINUE 

= .FlO.l) 







XT=XT+1#0 

IFfXT.GT.TN) GO TO 210 
TURN = TUB N+DNT 
GO TO 220 
210 XO=XO+1. 

IF(XO.GT.OM) GO TO 230 
DI=D|+DOT 1 
DO-DT 
00 = 00 
GO TO 240 

91 ERR0R = 7 * 

GO TO 250 

92 ERROR. = B. 

GO TO 250 

R0O ERR0R=6. 

GO TO 250 
BO ERROR=l. 

GO TO 250 
30 ERR0R=2. 

GO TO 250 
10 ERROR = 3 • 

GO TO 250 
70 ERR0R=4. 

GO TO 250 
90 ERRORS. 

250 WR I TE ( A * 260 ) 01, DO, TURN , ERR nR 

260 FORMAT ( l OHO 01 = *F10.3»10H 00 = ,F10.3*10H NTUBES = ,F10.0 

C t 1 OH ERROR = ,F10.1) 
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GO TO 
END 


2 00 
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20 7 


•**« CONDENSING RADIATOR SIZING program •••• 


RHOl 

hCOndS 

kliq 

RHOTub 

RHF 1 

rhfo 


S2,a 

loOOu.O 

1 9 . 5 

5^0.0 

500 < Q 

5OQ.0 


TIN 

Thkr 

KPINI 

K F I NO 

TOUT 

Flow 


liAO.C 

• 4 

l’B.0 

13.7 

1560*0 

98,1 


R 

'Gamma 

H Fr, 

TSNK 

DCONE 

LMAX 


39,5 

1.5 

823.0 

565.0 

7.3 

23.1 


DP 

PI 

surft 

ACONE 

VISV 

VISl 


•25 

*1.80 

.0050 

-.1745 

,000012 

. oOOQ98 


CPU 

£mi s 

c 0,oP 





• IS 

.900 

1.0 





Dl » 

l«000 DO 

m 

1.000 NTUBES* 

120* 

error a 

1.0 

Di « 

1 • OoO DO 

m 

1.000 NTUBES* 

122. 

Error a 

1.0 

DI « 

1*000 DO 

\ 

t.OOo NTUBES* 

i 24 » 

error a 

6.0 

DI = 

1*000 DO 


1 • 000 NTUBES* 

126* 

TplN a 

.0485 

FfFF = 

','•928 QTOTL 

■ 4954710. QCONQ a 

4656225* 

<j S C L It « 

96465, 

ITOT s 

15*090 LCOND 

■ 

14.801 LSCER • 

.290 

ATOT a 

470.993 

F I NW k 

659,0 TlNSUB 

m 

1649.3 OPIH • 

• 0130 

MLH *• 

70,3 

2QCD0 hR « 

2 nines mission 

WEIGHTS 




TUBE *ALL 

IHICnNEs N«0, 1 ,2 

• 3 

.23) . 

no 

,0e3 

.069 


N-4,5 

• 

061 .056 




T u B 0 e 

3427.7 TUBW 1 

m 

2000.5 T U B W 2 a 

1807.5 

T U B W 3 « 

1712.3 

TUb^M = 

1658.3 TUBW5 

■ 

1620.0 




WO B 

4 1 ® 5 . 6 W 1 

■ 

2738.4 w2 \ a 

2545,4 

W3 a 

2450.1 

* A* 

23 9 6 . 1 W5« 

2357.9 




5 YEAR 3 

NINES * eights 






tube v. a u l 

THICnNES n = o , 1 ,2 

1 3 

.537 . 

187 

. 127 

.103 

- 

N = 4 ,b 

■ 

090 ,079 




T U L A U a 

7672,4 T U E W 1 

■ 

2871,4 TUBW2 • 

2154.2 

T U 8 W 3 ■ 

1946,0 

TOS&H * 

1656.6 TUBW5 

B 

1 760.9 




Y/0 « 

6 H 1 0 . 3 W 1 

B 

3609.2 i V2 ■ 

2892,0 

|V3 » 

2683.8 

i'» u s 

2S 9 4.q hSb 

2516.7 




ACTUAL COND M ,n 0 3080564. 4REQUIreo pjN q 

3090012 

• 6 



V,LQ B 8.5 


Figure E-2. Radiator Optimization Program Output 


5. AN EXAMPLE CASE 


The sample problem assumes that a potassium stream at 1200°F, 
flowing at 1.635 Ib/sec, is to be condensed with an allowable two-phase 
pressure drop of 0.25 psia. 

Designs are to be generated for a 1.0 inch inside diameter tube with 
the number of tubes varying from 120 to 160. Table E-3 gives SINDA input 
for this problem. Table E-4 shows FORTRAN data input cards. The corres- 
ponding output is shown in Figure E-2 for the first four tube number 
combinations. 
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Table E-3. SINDA Input for Sample Case 


r 


rch 

FNO 

bcd 

END 

BCD 


END 

BCD 

END 

BCD 

END 

BCD 

END 

BCD 

END 

BCD 


QCnNDFNS fNG RADIATOR TEST C^SF 
3 C DNS TAINTS DATA 

1 . . 01 . 2 , .16,3,.43,4..P3,5,].?R,6,1.R 

3APRAY DATA 

1 , . 01 , 1. 35, . 02, 1,45, .04, l.ft, .OB, 1 .77, . 1, ] .85, .2, ?.•?. .4 , ?. ft 
.A, 3. 3, .8*3.7, 1 . ,4. ,FND t LOCKHART -MART I NELL I COP.R 
2, . 15, 1 260. , . 35, 13*0. . . 76, 1420. , 2. , 1 540. ,4.8 , ] 660. 

10. , )7/?0. rEND* K T VS P 

3 . . 0RB, 1300. 07, 14ft o, . 15, 1 460 . , . 3 , 1 52 0 . , . 7 , 1 62 0 . 

1 1660. ,2., 1760. , FMO SSOniUM T VS P 

4. . 6, 126 0 . , 1.5,1360. ,3. ,1460. ,6. ,1560. ,10. 1,1660. 

10. P, 1760., END £ C.FSIUM T VS P 

5. . 06. 1 00. , • 1,45.,.?, 10. ,.25, 6., .3, 4., .35, 2.9, .4,2,4 
.45,1 *6, .5, 1 .2, . 65 * *03, *6, .7 , .65, .55, .7 , .41 T .76* .3 

. RO, . ? 15, . 85, . 145, . 9 , . 088, . 95 , . 04, 1 .0,0. Q, FMD S FIN FFF 

6.0. 0. 1 #0, .04, .95, .OPR , .9 , . 1 45 , .B5 , .2 1 6 , .80 , .3 , .76 

.41, .7, .6 5, .*6, .7, .6, .93, .56,1.?, .5, 1.6, .45, 2.4, .4 

2 .9. . 35 .4 . . .6. . . 25. ] 0. , . 2* 45 . . . I , 100. » .06, END 

3EXECUTT0M 

CONRAD! A 1,A2,A3,A4,A5,A6) 

3 V A R f ARLFS 1 
3VARTABLFS 2 
30UTPUT CALLS 
3END OF DATA 
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Table E-4. FORTRAN Data Input Cards for Sample Problem 


Col. 1 ■*10 

Col. 11*20 

Col. 21*30 

Col, 31*- 

42.8 

19.5 

1.E4 

.25 

198. 

.005 

-.1745 

1560. 

1.23E-5 

823. 

.1835 

7.32 

9.844E-5 

500. 

13.7 

.4 

1 . 

0.0 

1 . 

120. 


Col. 41*50 

Col. 51*60 

Col. 61*70 

Col.. 71 *80 

4.8 

1660. 

530. 

500. 

98.15 

39.5 

1.63 


.9 

565. 

23.1 

1 . 

2. 

20. 





APPENDIX F 


RADIATOR PERFORMANCE PROGRAM 


The radiator performance program is described in this Appendix. 
Section 1, Program Abstract, gives a statement of the program's purpose 
and the calculation sequence. Section 2, Input Data List, defines the 
items required in the input data block. Section 3, Output Data List, 
defines terms used in the output data block. Section 4, Program Listing, 
gives a print-out of the program card deck. Section 5, An Example Case, 
gives the input and output data for an example case. 
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1 . PROGRAM ABSTRACT 


This program was written to calculate performance of a given condensing 
radiator geometry. Radiator inlet conditions are input and the program 
calculates outlet conditions. This program, in contrast to the optimiza- 
tion program, is included as an integral part of the overall systems 
analysis model as a subroutine, RADP. The performance subroutine, RADP, 
has ten arguments and requires four data cards for each case. 
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2. INPUT DATA LIST 


The subroutine, RADP, requires incoming arguments provided by the 
main performance program and a data card block which is read at the 
start of the program. These inputs are defined in the following table. 
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Table F-l. LIST OF SYMBOLS USED IN DATA BLOCK 


SYMBOL 


DESCRIPTION 


UNITS 


Incoming Arguments 

TI 

Inlet temperature 

°R 

PI 

Inlet pressure 

psia 

WD 

Flow rate 

lb/mi n 

XI 

Inlet quality 


Y 

Flag used in systems program 
y < 1.5 no data cards are read 
y > 1.5 data cards are read 


III 

Print flag 

III <1 write detailed output 
III >1 simplified output 


CARD 1 (8E10.5) 

RHOL 

Liquid density 

lb/ft 3 

CONL 

Liquid K 

Btu/hr-ft-°R 

RHF 

Fin density 

lb/ft 3 

RHT 

Tube density 

lb/ft 3 

CONF 

Conductivity inner fin material 

Btu/hr-ft-°R 


LIMIT 



Table F-l. LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 

DESCRIPTION 

UNITS 

SUFT 

Surface tension 

lb/ft 

ACONE 

Cone angle 

radians 

CARD 2 (7E10.5) 

R 

Working fluid gas constant 


GAMMA 

Specific heat ratio 


VISV 

Vapor viscosity 

lb/ft-sec 

CL 

Liquid specific heat 

Btu/lb-°F 

EMM 

Fin emittance 


TS 

Equivalent sink temperature 

°R 

VISL 

Liquid viscosity 

lb/ft-sec 

CARD 3 (5E10.5) 

RHFO 

Density of outer fin material 

lb/ ft 3 

CONFO 

Conductivity of outer fin material 

Btu/hr-ft-°R 

THKR 

Outer to inner fin thickness ratio 


DCQNE 

Diameter of cone at inlet 

ft 


LIMIT 
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Table F-l. LIST OF SYMBOLS USED IN DATA BLOCK (Cont'd) 


SYMBOL 

DESCRIPTION 

UNITS 

CODF 

Fluid type code; 1.0 = potassium, 2.0 = sodium, 3.0 = cesium 


CARD 4 (4E10.5) 



TUBN 

Number of tubes in radiator 


DI 

Tube inside diameter 

i nches 

TFIN 

Fin thickness 

inches 

TLTH 

Radiator tube length 

ft 

ANGLE 

Angle of cone taken up by a radiator segment 

degrees 


LIMIT 



3. OUTPUT DATA LIST 


The subroutine, RADP, provides the main performance with output 
arguments, when called upon. 

The program also gives identification of the radiator and fluid 
used as an input check. Outlet conditions are given for each segment of 
the condensing section and at the outlet of the radiator. 


The output arguments and output parameters are defined below. 


Output Arguments 


T2 

= Outlet temperature (°R) 

P0 

= Outlet pressure (psia) 

CTUBLG 

= Condensing length (ft) 

ERR 

= Error indicator: ERR = 


ERR = 


ERR = 

Output 

Parameters 


1 .0, valid solution 

1.0, radiator cannot condense 
all vapor 

2.0, condenser subcooler equations 
non-convergent 


TUBN 

= 

Number of tubes 

DI 

= 

Tube inside diameter (inches) 

TFIN 

= 

Fin thickness (inches) 

TLTH 

= 

Total tube length (ft) 

CODF 

= 

Fluid code 

XOUT 

= 

Outlet quality from segment 

QREJ 

= 

Heat rejected by segment (Btu/hr) 

TW 

= 

Tube wall temperature of segment (°R) 

EFF 

= 

Fin effectiveness of segment 

TOUT 

= 

Outlet temperature from segment (°R) 

TI 

= 

Radiator inlet temperature (°R) 

TO 

= 

Radiator outlet temperature (°R) 

PI 

= 

Radiator inlet pressure (psia) 

PO 

= 

Radiator outlet pressure (psia) 

WD 

= 

Flow rate (Ib/min) 
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4. PROGRAM LISTING 


A listing of the subroutine card deck is given below. 


b - ! 'Ll I 'if A .);••( T I ,f| , t) , X 1 ,1 I 1 I f • T ? « r c • C T ijrlL b • t If ft > 

L I ' L • j I o A I ( Z 1 » , A ?. ( I 3 ) , A 3 ( t L ) , a «♦ l I 3 I , A #• C 3 v > 

i »■ l *• 1 •' 1 1 l 1 * 1^1 

I- * 1 > l f » 2 1 I ) » I •• { • lb,l^iL» » * 3 *> i J 3 H 0 * ( «7 a>,j 42J*»2«» 1 S> 4 0 • a 

C ** • » . 1 !??(■«/ 

U.‘. T A <43(jj,j=i,lb»/i l i,.U2j|J3 3C*.«a7 f lJ8- fl .Jb l lH60*i*3ilb2u, l 
C ♦ 7 i I u 2 •; i i l • i J t- 1. L* • t 2 • i t 7 b\) w / 

t 1 A 1 i A *4 ( j } , I r | , I 3 » / i 2 i • 6 i J2 7i(j« i 1 • 5 | l 3 i • i 3 • * I 6 D • 16 * » I S 6 [) ( , 

C 1 . * 1 . I 6*0. , J ; • -J I 1 / 6 . . / 

'■■'If, 1 ) » i s | »-lV)/jerj , l)»l lHbtiUS(i2)SiibOi 

c*<' ,• J»S J , luO.,,06/ 

l* f Y.LT , 1 ) .J-) T(j 

*t. .\'j < S , J 'J r> i '!H3LjC0hLiCt'hH,RnF , ffn T , cO,\F » Sc f T , ACUNl 

I cs r '> i :U I t(E | ; , •> ) 

fct£l?ib.!C «" ) *? i OA^ia » V J 5 V i CL i fif-H.TS ,v I 5 L 
I Lir F M A T ( 7t. I . & ) 

h C » J < b » 1 U 6 ) K a f 0 , C Q n F y,ThxR t LCfKC,CO0F 
I C 6 FC-::A T t E-E 1 ; ♦ S I 

i K f 0 t 5 * 1 U 7 ) T-jiW . D I j TF I N • TUTH.ArjGuE 

I 37 f Oft .h AT * bt | ■. • 5 » 

t K K a ^ • 

K L T U K N 
6 P l =P 1 

IF t I l 1-1 > |J9, l IQ, | | w 
I 09 ** I TE t 6 , l | 1 ) 

a* I TL \ 6 , \ 12) TUB*. «U I »TF!N,TL1h,cODF 
Ul F Ct 'AT Hlti ••rONDL-.SlN^ KAcIATCR P E R F GK v ' A A C C t’ft 0 G H A H I 
1 I 2 FCniAt<AH. : TjoN - |F 6«0»&H D i k , F *4 . 2 , 7 h If lN« ( fb.4i?n TLTH»iF4*^i 

C7m C01f* t FMl 

tKlTEli.il 3) 

I 1 3 F CSmA T l 3 * w :• cOftDEriS I SEcTICN iNC R C M f-NTAL VAlU£S) 

/. k 1 ▼ £ < 6 , 1 1 M 1 

!|M FO^AMIOh- XCUV ...SltJ. «IQ* I" alCH Eff .ICh 

C TOUT > 

I 1 3 CO„T I ftUE _ 

bCU FCh’iAT (F l'»3.Fl0»0,F 10*1 *FIC*3,F10*1 ) 

C 

N*C 

r 

T3*TI-M59.a, 

HFg-m v A { Z ; T 3 ) 

RAO v *p I*l9S,/(R*TI I 

V S CH C * 5 , o 7 * 5 JKT U*^ma«R»T ( ) 

VlN»«0 # Al*57o./(60.*TudN*KH0v*3 t lH«Dl**2l 

IF (vlN«GT«vSC’iC) : 3C.Tg SO 

C0u\T#;,0 

tnXOK.j.O 

C 0 i\ ■ t T >■ K ;* • c 0 Mr 0 + C 0 Ur ) / ( I . * T hi( R ) 

0 1 *i * • -3 • 0 I • 5 •:• ft T < T U 3 'J J 
* e. ft « V I N • H H 0 v • J I N H / ( 1 2 , • v l S V ) 

OP | h»- 3 I A* 3 . 1 H«OCO»it‘ •ANCLE/ 3*0 • •RfiOV* V I !••*/ (<* •«RtN*« *25*0 |Nrt*3a*2 
C . 1 

PIePl-f)fM-i-PAg/«V|N«*2/926Q. 

DL TL*TLTH/jO# 

A ?■ < I 

AL*--ulTL/7 . 

0 (. I j * ^ 6 . « •« P G • x I 

Ti t r> s Vi Cl) 'in / <3«|***Ui«TuFN*TlTm«cCF*h1*12» 
iU w AL*'L*i.’iL T l 

F 1 :. K .T = l 3. i «i ■ | > C 0i«L-2 • *> L «S! M ACO'it M * »**3Lfc/36 - .-I btN*OI / 12 , ) / | TUbN 
c • : . • 


Figure F-l. Listing of Subroutine Deck 
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irCCOOF'lT' | '51 CALI 0 lUCcilCPl|A 2 *T 2 J 
lPfCODF.CiT , 2.5 ) CA L l. D I DC G i < f' I , A 4 , T 2 ) 

IT I c^DF .GT , I • b. AND'C^dK *LT • 2»b ) CAUL D 1 0 £ ti j < P 1 , a 3 , T 2 ) 

T^«=t2-Td^P 

XLHBA«EhH« 9 | 7 MC-H« t a * 9 3*f I NLT« »2* I 2« / ( COr.n«TF 1 N ) 

CALL blDt'G! <XLMBA 9 A6«LFK) 

0*E«/'1*.|7 1 MF^0»<TA.«M-lS*»M»«U:FF*TUB^*2.*r!NLT + lufciN-Ul/l2.>*jLTL 
1 3*T 2-4*9 , *>. 

HF G ■ H V X ( 2 , T3 ) 

Ol.TA*(rf/tHf G*‘Vj)/60, 

X2»>.2-ULTx 

IF (x2«LT*0.Q> GO To ISC 

K * N f l 

1F( CXL + ,51 .DLTL>*OT , TLTH) gO TO 200 
V * V I N«X2/x I 

THlTA«5UFT'32'2/<VISV*v) 
mOV/ViS V. 

Jf I TMtTA - g r . 57 . 23 . THET * *LT • J27 '59j cE«M.f 4^2/ ThtTA* '^22£» 

IF ( THLTA-GE ■ 327*59 j Ct«*02 
IF (THETA*LF* 67 *231 Cc>*l 
IF( II !•! I S G 1 #5 0 2, 5 r;2 

501 CONTJNUC 

W*I TE (6 ,S C 0 > X2,Q*T»itLFF,T2 

502 CONTINUE. 

A«CC(l--X2)/X2)* # l*a*KH0V/RHUL»(V|SL/VlSV»'*'2>**.5 
CALL OlDEGl (A. aIiB) 

0PC*QLTL*CE»2*/tRt*« • 2 > • R H09 • V • • 2 / C 0 I *32*2*12* ) «e« *2 
DPr»RH0v*viN**2/(32,2*iHH # ) / «j(x2*DLTX)*«2“x^**2)/Al**2 
P I mP I ♦OPM-qPE 
GO. TO. IQO 

J So CONDL* ( X2 + 0LTX j/DLTX^fOLTL 
ScOL-D L TC- c OH 0 L 

CTUBLG»FLoaT (N ) •OLTL^CONOL 

RtL*»c>/{4o,«T U >iN*KHOL«3*l4*Dl**2l*‘<8*«DI*RMOL/9i5i. 

P * ■ C L • V i S l / c 0 •« L • 3 A 0 ; • 

HLIQ**625*(R^ l _'pRj.'. M#(; oNL«12./DI 
X»-3*|H«o|/i2,*Sc0l*TuBN 
ATvja*0|/l2'*5C0L«Tu8N 
AF p4«F UlLl • TUBN«2 , *SC0L 

T***T 2 -S 0 • __ 

3 5 0 Wl»E*rt»'l7t‘U- l 3«lT.V'»4-TS*»‘ n «<ATuB + EFF*Afrif4) 

lA2»T2-'5l'(2.*MLia'An/(rfD*60*«CL>l'l2** H L!Q»A ( , | 

If UBMTft2-TM,LT.i # | GO TO 2S0 
COUNT-CCUnt*.J, 

IF I COuNT*gT .25, ) GO To 300 

T*.*T***2S«|T*2-Tftl 

GO TO 350 

2 5 o T 2* T2^Q 1 / ( CL* *0 #6 C . ) 

IF ( (XL*'5|*L)LTL^ # 0T* TlTH) GO TO 900 
c o u f4 T * o , 0 

XL*XL*OLT L 

AH»3*l9*Dj/|2,-DLTL»TufiN 

F 1KLT» | 3* IDC0NE-2 • •XL*S1NI ACONE I > • AN<iLt/36; '-T 0 bN*Ol / I 2t ) / | TU»N 
C • 2 # I 

x L M B A «= EMM • , 1 7 1 *4 E -6 • T « • • 3 • F I NL T • • 2 • I 2 • / ( c ONf • T F | N I 
CALL 0 1 DCG 1 < *L4H * i A6 »£FF I 


Figure F-l . 


Listing of Subroutine Deck (cont'd) 
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A 111 is “0 [ / 1 ? , *r>L T l. * 1 UI'.H 
/,! 1U-I 1 ,ii. T « 1 Utiii * ? • « p l_ T U 

00 10 3!>U 
2 !. o coi.TiiiUt; 

1 I-. f< = 1 , 
r I 1 IJR n 

3 L' 0 »'.l. n t ( h ,2 ) T I , »0 t T - , I 

1 ( 2Mi» C OH Dl. N «,f. K . IJON-CONVE RCiE.NT • MF 1 0 t j ) 

H F 1 V R N 
SJ COMINUI. 

E K « = 2 , 

R t H)K N 

MUU COliT I f|U(. 

1 > C I I 1 - 1 ) M 0 2 • 4 j • i ** w I 
MU 2 (.MUlA|ll5) 

lib 1 0 R MAT (3b MCi KAOlATOK lNLLT OUTLET CONDITIONS) 

* ,{ ] T E ( i. , 3 ) T 1 . T 2 t P 1 , F 1 , ,V 0 

3 r 0«!\i\T <6H TI = iF1^,1,6h TO=,plOfl,*H P 1 15 , F 1 Q. 3 , 6H 
c i oh v i.) = r l c • 2 1 

Mull COfiTlNUi 

POtP 1 
E K H = 0 # 

K E T U K N 
END 


Figure F-l. Listing of Subroutine Deck (cont'd) 


P0*= *F J Of 3 
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5. AN EXAMPLE CASE 


The radiator used for an example case is one of twelve in a larger 
capillary pumped system in which potassium is the working fluid. Table 
F-2 shows the input data and Table F-3 shows the corresponding output. 
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Table F-2. Data Input for Sample Problem 


Col. 1 -10 

Col. 11+20 

Col. 21+30 

Col. 31+40 

Col. 

41+50 

Col. 51+60 

Col. 61+70 Col. 71+80 

42.8 

19.5 

1.E4 

530. 

500. 

198. 

.005 -.1745 

39.5 

1.63 

1.23E-5 

.1835 


.9 

565. 

9.84E-5 

500. 

13.7 

.4 

7.32 


1 . 



11. 

1 . 

.0102 

16.92 


30. 





INPUT ARGUMENTS. T ip = 

1660 

i °R 






P in = 

4.8 

psia 






WD = 

8.1 

Ib/min 






XI = 

1.0 
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Table F-3. Radiator Performance Program Output 


* « CGUUe uS 1 iU ; Is A D I A Y 0 K' f- EKF ORM ,\UCL t if U)O.K A«i* * 


TU^Nb Jl« 1*1*1*00 Vrif4=*#oiC2 1LT|: = 
CONOLNSI IvCi bt.C T ION, If:C!<LhFlj7 Al. Val u ^S 

T* Eff' 


/OUT 

«K}. J 

• 9 1 l 

J!,*?*; 

* B j 9 

3 7**6 

• 7 23 

3 3685 

• 6 23 

ML- 01 7 

•521 

4 1 2 4 5 

« 4 1 6 

4 2 3*5 

On* 

4 3 1 4 2 

• i 98 

4 S 3 * 4 

• 066 

45122 


16 5 6*3 

• 858 

1 6 5 4 * 0 

• 82s 

1 65?.* 1 

« 7 V 6 

1 6 5 U * '7 

• 7 6 5 

165U.2 

#736 

1649. V 

• 70? 

1 6 4 9*8 

• 6 C 1 

16 4 9.9 

• 65s 

1650. 1 

• 6 26 


1 6 # V2 C .O0K» 1*0 


TOUT 

1 & V, 7 * 6 
1 6 5 4 • H 
l 6 5 2 • V 
16S1 • / 
U>5 1 * 1 
1650*7 
1 6 SO • 6 

1 6 5 o • y 
1 6 5 G • 9 


RAoUlOR lMLLT OUTULT CONDITIONS 

Tl« 1660*0 TO* 154^,5 pl = H**00 P0 = H*59 c „D = 


B. 1 
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APPENDIX G 
NOMENCLATURE 


A Area 

\ A 4 

Ap Heat transfer area in a capillary pump 
A^ Inside surface area of the radiator tube 
A-| Cross sectional area of the liquid line 

A^ Cross sectional area of the vapor line 

C Correlating parameter which gives the importance of surface tension 
on two phase friction. 

c Speed of sound in armor material 
d Diameter of meteoroid 

D t Diameter of the radiator tubes 

D-j Diameter of the vapor line 

D^ Diameter of the liquid line 

f Friction factor 

h c Condensing potassium heat transfer coefficient 

h-j Working fluid vapor enthalpy at (saturated). 

h. Subcooled working fluid enthalpy at the inlet to the capillary 
pump. 

K The cosine of the effective wetting angle 
k Thermal conductivity of the working fluid liquid 

k Thermal conductivity of the metal wall separating the condensing 

w potassium and the capillary pump working fluid. 

k f Thermal conductivity of the capillary pump working fluid 
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If 


L Length 

L v Length of the vapor line = L 12 

L t Spacing between radiator tubes 

aL Length of the radiator 

m Meteoroid mass 

Merit Minimum mass meteoroid which will give a penetration 

N Flux density of meteoroids or a working fluid property group 
( p x 5/u ) or the number of capillary pumped loops. 

n Total number of impacts 

Nu Nusselt number (hD/k) 

N t Number of radiator tubes 

P Pressure 

Pe Peclet number (Re)(Pr) 

P(N^) Probability of or less punctures 

P.| Saturation pressure of the working fluid at T-j 

P^ Pressure at the inlet to the capillary pump surface tension 

aP 1->-2 Pressure drop through the vapor line 

aP 3+4 Pressure drop through the liquid line 

d Probability of an impact resulting in a puncture 
Qp Heat transfer rate in the capillary pump 

Q t Heat transfer rate from the radiator 

R Effective radius of the wick 

Re Reynolds number = ~- 

T k Condensing potassium temperature 

T q Temperature of ultimate sink (space) 


225 


AT Temperature drop from the condensing potassium to the working 
fluid vapor 

T.p Main can radiator fluid temperature 
T w Temperature of the radiator tube wall 

T sk Ultimate sink temperature = T Q 

T-j Working fluid vapor temperature leaving a capillary pump 

T 2 Working fluid vapor temperature entering the radiator 

Tg Temperature of the liquid leaving the radiator 

t Required armor thickness 

U Overall heat transfer coefficient in a capillary pump 
V Velocity 

v Meteoroid velocity = 25 Km/sec (specified) 

W The steady state mass flow rate in a capillary pumped loop 

W^ The mass flow rate at point i in a capillary pumped loop 

AX Metal wall thickness separating the condensing potassium and the 
w capillary pump working fluid 

AXf Gap thickness between the metal wall and the screen wick 
X.j n Quality of working fluid into a radiator node 

X out Quality of working fluid out of a radiator node 

a Damage thickness parameter * 1.75 (specified) 

6 Specified constant =1.22 

y Material cratering coefficient = 2 (specified) 

a Specified constant = 10“^*^- gm-'-* ^^/m^sec 
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e Emissivity of the radiator 

S Surface tension of the working fluid 

n Mean fin effectiveness 

x Latent heat of vaporization of the working fluid 

Viscosity of liquid in the liquid line 

u v Viscosity of vapor in the vapor line 

u Viscosity of the working fluid liquid 

p Density 

P m Meteoroid density =0.5 gm/cm (specified) 

pj. Armor material density 

p^ Density of liquid in the liquid line 

p v Density of the vapor in the vapor line 

p-j Working fluid vapor density leaving the pump 

p^ Working fluid liquid density entering the pump 

a Stefan-Bol tzmann' s constant 

t Mission Time 

2 

<t> Marti nelli -Nelson friction factor multiplier for two phase flow 


NASA- Langley, 1971 22 E-637S 
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